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U na de las principales ventajas de los Amstrad CPC es que 
tienen una unidad de disco. Ya hemes hablado otras veces de ella, 
desde distintos puntos de vista, pero nunca hemos analizado tan 
exhaustivamente todos los J:omandos de manejo de disco, uno por uno y 
con tanta claridad. Creemos que,. tanto a los que empiezan como a los 
que deseen aclarar conceptos acerca del disco, les será de gran utilidad. 
Continuamos con la segunda parte del artículo de gráficos por 
ordenador, Ahorrar memoria en gráficos. En él se detallan aún aún 
más técnicas que la semana anterior para consegulr empaquetar dibujos 
en el mínimo espacio posible.. Los métodos de ahorro de memoria se ven 
complem£nlados por Unas (uantas rutinas de giro de oi!jetos en distintos 
ángulos. Cemo los pregramas están escritos en lenguaje máquina, no 
les quiero decir a qué sorprendente velocidad trabajan. Además, y como 
de costumbre, es muy fácil incluirlas en los programas que 
desarrollamos. 
Les aji£ionados a "picarse,) programas no se quejarán. En este 
número e.fretemos material lo suficientemente original y adictivo para 
dejarle al lector el placer de descuhrirlo, 
Una última recomendación: no se pierdan los trucos. También les 
sorprenderán. 
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Nuevo disco duro 
para el PCW 


La empresa ASD Peripherals 
ha creado una unidad de disco 
duro para el Amstrad PCW. Su 
capacidad es de diez o veinte 
megabytes y va acompañada de 
una versión modificada del 
CP/M Plus, Locoscript y varios 
programas más de utilidades 
que aumentan las posibilidades 
de uso del sistema. 
Con todo esto, el PCW puede 
emplearse como algo más que 
un simple procesador de textos. 
Al aumentar su capacidad de 
almacenamiento puede 
convertirse en una buena base 
de datos y en un importante 
sistema de oficina, teniendo los 
programas apropiados, ya que 
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Zafiro se suma 
a la reducción 
de precios 


Una excelente noticia para 
los usuarios de ordenadores 
domésticos: los responsables de 
la sección de software de la 
compañía Zafiro han aplicado 
una considerable reducción en 
el precio de la totalidad de los 
programas de su catálogo, con 
lo que dicha casa de 
distribución se suma a las 
últimas tendencias 
generalizadas del mercado, y 
viene a ampliar la gama de 
programas a precIOS 
asequibles. 
Según han manifestado los 
propios directivos de Zafiro, 
esta idea de la baja venía 
fraguándose durante algún 
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en diez megabytes se pueden 
almacenar tres mil páginas de 
texto. Además, el acceso a los 
datos es muy rápido, 
concretamente 85 ms. 
Como colofón de todas estas 
aplicaciones, el PCWHD va 
acompañado de unas claras 
explicaciones que hacen muy 
sencilla su utilización, así como 
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su instalación a través de un 
simple cable. 
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Nota aclaratoria 


En el número 77 (página 44), 
«Especial Ampliaciones» de la 
sección de Infobytes, se decía 
que el periférico Anta 64, de 
MHT Ingenieros, con\'ierte un 
Amstrad CPC 664 en un 6128 
Dicha información no FS del 
todo exacta. La ampliación de 
memoria no proporciona al 664 
los comandos y el Sistema 
Operativo ampliado que 
caracterizan al 6128. 
El Anta 64K. 3 es una 
ampliación de memoria de 64 K 
con tres opciones distintas: 
- Buffer de impresora, que 
almacena y envía la información 
a la impresora, dejando el 
ordenador libre para otros 
trabajos. 
- Ampliación de memoria, 
en la que se pueden leer datos, 
grabados, etc. 
- Ram-Disk, el cual se 
comporta como un disco RAM 
de acceso muy rápido, 
incluyendo funciones para 
Acceso Aleatorio. 
La única limitación del Anta 
viene dada por las propias 
características de este aparato. 
En cuanto se apague el 
ordenador los datos que se han 
incluido en la ampliación Ram 
de la memoria se perderán, 


... 


tiempo en la compañía, y el 
hecho de que otras casas se 
adelantaran en la puesta en 
marcha de la disminución de 
los precios, les ha obligado a 
modificar ligeramente su 
estrategia y a acelerar su 
realización. 
De esta forma, las medidas 
tomadas por Zafiro pasan por 
la creación de un nuevo sello 
de software, Cobra, y por la 
conservación de la tradicional 
firma Zafichip, aunque con 
precios más bajos y asequibles 
para sus títulos. 
En el sello Cobra se incluirán 
la totalidad de los grandes 
éxitos que Zafichip ha 
presentado hasta el momento 
«(Commando», «Trap Door», 
« 1942», «N osferatun», etc...), 
títulos a los que se irán 
sumando las próximas 
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novedades de compañías tan 
prestigiosas como Piranha o 
Elite. El PVP de todos estos 
programas será de 875 pesetas 
Por otra parte, Zafiro ha 
manifestado la intención de 
que, por razones de prestigio, 
d sello ZaJichip siga existiendo, 
por lo que en él se incluirán 
los programas que, a juicio de 
la compañía, posean una 
calidad superior a la del resto, 
y que estén llamados a 
convertirse en superéxitos. 
Este tipo de programas 
también verá reducido 
considerablemente su precio, 
el cual quedará establecido en 
la cifra de 1.200 pesetas. 
Afortunadamente, cada vez 
se nos ponen mejor las cosas a 
los usuarios y el software 
continúa haciéndose más 
asequible para todos. 
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Atari relanza 
su gama 
de productos ST 
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El miércoles 8 de abril, 
Ordenadores Atari, S.A., a la que 
podríamos llamar Atari España 
para entendernos, presentó, o 
más bien se podría decir 
representó, su gama de 
productos ST. Se trata de unas 
máquinas muy prometedoras, 
basadas en uno de los 
microprocesadores más 
avanzados del mercado: el 
Motorola 68000 corriendo, nunca 
mejor dicho, a 8 MHz. Como 
atractivos adicionales, los ST512 
y ST1040 incorporan medio 
mega y un mega de memoria, 
respectivamente, y un entorno 
de usuario basado en el Cem, lo 
mismo en el Amstrad PC, pero 
con la ventaja a favor de Atari 
de una velocidad mucho mayor, 
y la desventaja de que el Cero 
se encuentra en Rom, por lo 
que incluir posteriores versiones 
de este entorno gráfico de 
trabajo podría ser problemático. 
Por lo demás, pensamos que 
estos ordenadores, para las 
prestaciones que tienen, se 
ofrecen a un precio por demás 
competitivo. Por ejemplo, el 
ST512, sin monitor, pero con 
teclado, unidad central, ratón y 
software, cuesta 80.000 ptas. 
La representación, para ser 
justos, también dio algo nuevo e 
interesante por parte de Atari. 
Nos referimos a la nueva serie 
de máquinas Mega 2 y Mega 4, 
que, realmente, son casi, casi 
como los otros, excepto por el 
hecho de que poseen más 
memoria, 2 y 4 megas, y por 
un aspecto mucho más modular 
y profesional. No obstante, la 
inclusión en la serie Mega de un 
chip especialmente dedicado al 
proceso de gráficos, lo convierte 
en adecuados candidatos a 
formar parte de la caterva de 
sistemas dedicados al arte o al 
CAD. Además, en este tipo de 
aplicaciones es esencial que el 
software sea «amistoso.., ámbito 
donde el ratón y el Cem tienen 
mucho que decir. De momento, 
no hay noticias oficiales ni 
definitivas acerca de los precios 
de estas nuevas máquinas. Atari 
España nos ha facilitado una 
lista del software ya disponible 


Estadística para el PC 


MicroMouse ha 
c0l1crciali .Ido una nm \'a 
herral 1ienta de trabajo p,lr,1 el 
progral1a de estadística 
SPSSx. Con ella es posible 
real' ir autorláticallt'nte las 
t'picas fu lCiones de gesti6n de 
,istt -la que se n'ali 1I1 con 
dicho programa, si 1 nece,idad 
de te ncr e' pt riencia ni 
conoci lJicntos e'lwci,¡)c'i del 
SPSSx. 
r:0I10 todo lo relacionddo 
l'On el SPSS-..:, el SPSS\ Trae/,. 
está indicddo para los 
l'Ompatible'i dI:' IHM, entre 
ellos el Anstrad PC. 
Entre las tareas concretas 
que rcaliz 1 se c n< uen tnm la 
po
i')i'id,l(i de gclltTdr 
informes dial-ios, sUTIdna1cs o 


11tnSuale
 sobre el 
ft lCional1iento del ,i
tema, 
con u 1 gráfil'O, como eje- lplo, 
de los fallos de acceso 
al disco. 
Ot rd de sus fu lCione'i es 
documentar los problemas de 
e'\plot,lción, ,I,í COI 10 
P],1Il i tiear l,¡s al 1 pliaciollt,'i dd 
equipo de und mdlltTa 
coherente 
E'1 cuanto a ¡,IS tale,l'i dc 
g'e'iti6n di,lri,l'i, ,1\'ud,1 a 
,nllolllat i" Ir ru t i 1dS como 
detección de ,1I10malí,l'i en d 

istema de segu ridad, i 1ti>nne'i 
sobre tal1dño v antigíieddd de 
los fie1lt'ros, ,u.ignación de 
J)rioridadc
 y cUdlquicr funci6n 
diseñada por el respons,lbk dd 
sistema. 
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para sus ordenadores, y, entre 
eso y lo que hemos visto, se 
puede decir que estas máquinas 
están arropadas por una gran 
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cantidad de buen software, sin 
llegar, evidentemente, al 
número de programas de que 
dispone IBM. 
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Ordenar los ficheros 


Por: David Sopuerta 


En un disco magnético se pueden guardar un montón de cosas, aunque 
parezcan tan pequeños como son los del Amstrad CPC. 70da esta 
información necesita ser tratada convenientemente para no perder ni un sólo 
bit y, además, estar ordenada de una manera tal que no resulte difícil a 
nuestro ordenador acceder a ella, 


El Amstrad es, solamente, una encantadora 
máquina que se limita a obedecer fielmente, eso 
sí, todas las órdenes que le demos, siempre que 
estén escritas correctamente y pueda 
interpretarlas sin error. Queremos decir con esto 
que vamos a ser nosotros los que ordenaremos y 
trataremos realmente la información contenida en 
un disco 
En algún que otro artículo anterior vimos poco 
a poco una de las formas de pasar pogramas 
desde la memoria central del ordenador a la 
unidad de disco o cinta, o en sentido contrario: 
SA VE y LOAD se encargaban de hacerlo. 
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Ahora bien, ¿qué tipo de información era la 
que trasvasábamos de un sitio a otro? Hay que 
admitir que estábamos bastante limitados. Sólo 
podíamos pasar dos tipos de ficheros: programas 
escritos en Basic o contenidos binarios de las 
distintas direcciones comprendidas en una 
determinada zona de memoria. ¿Cómo logrará el 
ordenador acceder a ella correctamente? Dentro 
de] disco hay unos sectores reservados para 
almacenar ciertos datos de todos los ficheros que 
contiene: nombre y apellidos, dirección, etc. 
No vayamos a pensar con esto que un disco es 
una agenda dispuesta a guardar toda la filiación 
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de nuestros amiguetes, ¡no! Cuando hablamos de 
nombre y apellidos de ficheros nos estamos 
refiriendo concretamente a su «nombre" y a su 
«extensión». 
Lo de «nombre» lo tenemos más o menos 
claro, pero ¿qué es la «extensión» de un fichero 
de disco? 
Esos sectores reservados para almacenar esta 
información están preparados para guardar, 
además del nombre, tres caracteres más que nos 
van a dar idea de lo que hay en realidad en un 
determinado fichero. ¿Nos explicamos? 
Si encontramos algo llamado: 
NOMBRE.BAS 
es inmediato pensar que estamos ante un 
programa escrito en Basic. "NOMBRE» es el 
nombre del fichero y "BAS" son los tres 
caracteres de la «extensión» a los que antes nos 
referíamos. Estamos seguros que no os parecerá 
muy descabellado asignar "BAS" a todos los 
ficheros Basie. 
Extendamos esto a cualquiera, incluso a los 
que de momento nos conocemos su significado. A 
todos los que contengan datos les colocaremos la 
extensión o «apellido» DA T, los de texto llevarán 
TXT, los binarios BIN, las pantallas SCR, y así 
hasta que se agote nuestra imaginación. 
Solamente os daremos un consejo: las tres letras 
os indicarán «algo», así que elegidlas 
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adecuadamente para que siempre os recuerden la 
naturaleza del fichero. 
La mayoría de nosotros ya conocemos 
suficientemente el trabajo de un comando 
generalmente muy utilizado: CA T. Visualiza los 
nombres y las respectivas extensiones de todos los 
ficheros guardados en cualquier disco y además 
nos informa también del espacio del mimos que 
queda libre. 
Muy bonito, pero con un pequeño 
inconveniente: la información que nos presenta 
en la pantalla es la referente a todos, repetimos 
«todos», programas, pantallas, textos, ete., los 
contenidos del disco. Eso sí, ordenados 
alfabéticamente, pero juntos y revueltos. 
Nuestra intención es, por ejemplo, conocer los 
programas Basic almacenados (los de la extensión 
BAS). ¿Cómo lograrlo? 
El Amstrad queda sometido al control de un 
sistema operativo de manejo de disco, llamado 
AMSDOS, desde el mismo momento que lo 
encendemos. Algunas de sus funciones ya las 
hemos visto (LOAD, RUN, etc.) pero nos 
quedan todavía muchas por descubrir. 
El manejo de los discos lo haremos por medio 
de unos comandos AMSDOS que siempre 
escribiremos precedidos del símbolo "1": son las 
llamadas órdenes externas. Y una de ellas es la 
que se encargará de solucionar nuestros 
problemas. 
Tecleead: 


IDIR 


seguido de RETURN y al momento os 
aparecerán en la pantalla todos los ficheros que 
vimos con el comando CA T. Pero esta vez lo 
han hecho de una manera diferente, así que no 
podemos pensar que se trata de dos órdenes 
equivalentes. 
Démosle mucha más potencia. Existen unos 
símbolos llamados «comodines» que nos van a 
servir para decirle al Amstrad que alguna de las 
órdenes del AMSDOS actúe sobre un cojunto de 
ficheros que tengan algo en común. Por ejemplo, 
queremos sacar el «directorio» de todos los 
ficheros con extensión BAS tal como dijimos 
antes: esto quiere decir que al comando sólo le 
interesa la extensión, o sea que el nombre le ha 
de ser «indiferente». 
Para indicárselo al ordenador utilizaremos "el 
símbolo asterisco (*), en sustitución de todos y 
cada uno de los nombres de ficheros y el efecto 
será el deseado. 
¿Cómo se hace esto en "la práctica? Escribid: 
IDIR, "*,, .BAS" 
y observaréis la diferencia de lo que nos aparece 
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ahora en la pantalla con respecto a lo anterior: 
sólo saca los ficheros que tienen BAS por 
extensión. 
Si queremos conocer el «directorio» de todos 
los que sean binarios haremos tres cuartos de lo 
mIsmo: 


IDIR," *". BIN" 
Y así con cualquier extensión. Comprobadlo. 
El símbolo comodín asterisco sirve para más 
cosas. Ahora se nos ha antojado ver todos los 
programas que se llamen "PEPITO", por 
ejemplo. Da igual la extensión que tengan, sólo 
queremos conocer los que se llamen "PEPITO". 
En esta ocasión, lo que ha de ser indiferente 
para el Amstrad es el tipo o extensión: da igual. 
Así que lo sustituiremos por el símbolo comodín 
que conocemos y a ver qué pasa. Con: 
IDIR, "PEPITO. *" 
lo comprobaremos. 
¿Existe alguno? Si no es así dadle otro nombre 
de los muchos, esperamos que tengáis en vuestro 
disco y veréis que los resultados son totalmente 
satisfactorios. 
Nos atendremos a haceros una pregunta. A 
qué es equivalente la orden: 
IDIR, "*. *" 
Con ella estamos indicándole al ordenador, o 
mejor al sistema operativo del manejo de disco, 
que nos de un directorio de ¿qué? Analicémoslo. 
Decimos que queremos cualquier nombre de 
fichero (así nos lo indica el primer asterisco) y 
además nos es indiferente la extensión que tenga 
(segundo asterisco). O sea, le pedimos todos los 
contenidos en el disco, lo mismo que hacíamos 
con 10IR. 
De golpe tenemos la inquietud de saber si 
existe alguno, cuyo nombre empiece por la letra 
D. Conociendo que "*,, sustituye a un grupo de 
caracteres que no os costará mucho trabajo 
comprender que: 


10IR, "0*. *" 
nos dará lo que pedimos. 
Existen más símbolos comodines. La 
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interrogación "?" cumple la misma misión que 
el asterisco pero en este caso con un solo 
carácter. 


IDIR, "PEP? *" 
visulizará el directorio de todos los ficheros de 
cualquier tipo, cuyo nombre contenga cuat;o 
caracteres y que además comiencen por "PEP" 
siendo el cuarto indiferente. 
Serían equivalentes las órdenes: 
IDIR,"*.*" 


Y 
10IR, "???????? ???" 
Estamos seguros que vuestra respuesta habrá 
sido afirmativa ya que en ambos casos nos 
estamos refiriendo a «todos los ficheros». 
¿Ampliamos los comandos AMSOOS"? 
Normalmente es bastante difícil que un programa 
nos salga bien a la primera y conforme vamos 
corrigiendo comprobaremos que se nos llena el 
disco de ficheros con extensión BAK. ¿Qué 
quiere decir esto? 
Sencillamente que el AMSDOS asigna 
automáticamente dicha extensión a la versión 
anterior de un fichero cuando hemos grabado 
una más moderna con el mismo nombre. Así se 
nos permite utilizar una versión anterior cuando 
lo juzguemos oportuno. 
Si el programa ya funciona correctamente, 
¿para qué tener ocupando espacio en el disco 
todas estas ediciones antiguas de programas? ¿No 
es así? 
¿Intengamos borrar las que no nos sirvan para 
nada? Supongamos que nos sobre el fichero 
"PEPE.BAK". La manera de hacerla 
desaparecer es empleando otra orden externa del 
AMSDOS: 



 


IERA, "PEPE.BAK" 
ERA proviene de la palabra inglesa «erase» 
(borrar), con lo que su emisión queda bastante 
clara, ¿no? O sea, borra todos los ficheros que 
estén de acuerdo con la cadena de caracteres que 
esté entre comillas. 
Queremos decir con esto que también puede 
admitir símbolos comodines de forma semejante a 
como lo hacía IDIR. 
IERA, "PEPE. *" 
borrará del directorio del disco todos los ficheros 
que se llamen "PEPE" independientemente del 
tipo que tengan, y 
IERA, "* .BAK" 
hará lo propio con todos aquellos que sean una 
versión antigua de cualquier otro, ya que tendrán 
la extensión BAK. 
Por si se os pasado por la mente os 
recomendamos que no se os ocurra teclear: 
IERA, "*. *" 
a menos de estar muy seguros de lo que queréis 
hacer. Con este título comando se os quedará el 



disco más blanco que la nieve. 
Antes de continuar haremos una 
puntualización. En realidad no se borran los 
ficheros del disco, a menos que grabemos otro 
encima. Lo que ocurre es que en el lugar del 
directorio reservado para el nombre de los 
ficheros existentes se pone una indicación delante 
del mismo y el ordenador lo interpreta como que 
ya no nos interesa. 
Bien, ya sabemos la menra de eliminar de un 
disco todo aquello que no nos interesa. 
Pongámonos en otro supuesto. 
Un programa de contabilidad, por ejemplo, 
genera unos datos que se almacenan con el 
nombre "DATOS. DAT". Terminamos el año 
en curso y comenzamos el siguiente, así que 
queremos que los datos referentes al año 87 estén 
contenidos en un fichero cuyo nombre refleje por 
algún sitio este 87: se impone cambiar de nombre 
a "DATOS.DAT" y ¿qué mejor nombre que 
"DATOS87.DAT"? 
° sea, que tenemos que «renombrarlo» o 
«renamearlo». Busquemos en el saco de los 
nuevos comandos a ver que encontramos. 
¡Vaya!, hay algo parecido a RENAME. 
Si, 


IREN, "NUEVO.EXT", "VIEjO.EXT" 
es una orden externa de AMSDOS que da un 
nuevo nombre o «rebautiza» a un fichero ya 
existente en el disco. 
En nuestro ejemplo tendríamos que escribir: 
IREN, "DA TOS87 .DA T", "DA TOS.DA T" 
para almacenar los datos del año 87 con un 
nombre que sea bastante representativo de lo que 
allí se encuentra. 
¿Qué pasa si ya existe otro fichero con el 
nombre "DATOS87.DAT". Es evidente que en 
el disco no pueden existir dos con el mismo 
nombre y con la misma extensión. En este caso 
"SI" nos interesa, en principio, guardar el 
primer fichero ya que puede contender datos 
válidos. 
El AMSDOS ha pensado en ello y no lo hace 
desaparecer, sino que sencillamente da un 
mensaje de error advirtiéndonoslo: 
DATOS87.DAT already exist 
evitando así la desaparición de algún fichero que 
nos valga, en caso de confundirnos al escribir el 
nombre. 
Se nos ocurre también pensar la manera de 
cambiar de nombre a un grupo de ficheros: 
estamos pensando en los símbolos comodín. 
Pues bien, en esta ocasión no podemos 
emplearlos, así de claro. El cambio de nombre ha 
de hacerse de uno en uno, si no intentad: 
tREN, "*87.DAT" ,"* .DAT" 
se nos traducirá en el consiguiente mensaje de 
error: 


Bad command 
¡No intentemos hacer cosas que no están 
permitidas! 
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El directorio del disco está dividido en 1 b áreas 
diferentes (O a 15) llamadas «áreas del usuario» 
sobre las que actúan independientemente las 
distintas órdenes de manejo de disco. 
El área implícita, o sobre la que trabajamos 
nada más encender el ordenador, es el área O. Si 
ahora mismo pedimos un CA T nos sacará todos 
los ficheros que estén en esta zona de usario (la O) 
Nosotros podemos trabajar indistintamente en 
una cualquiera con tan sólo teclear: 
IUSER,Número de área 
y ya estaremos colocados en ella. Por ejemplo: 
IUSER,3 
nos habrá situado en la zona 3. ¿Qué hay en 
ella? Visualizadlo mediante: 
IDIR 
por ejemplo. ¿Qué aparece? 
Lógicamente que no hay ningún fichero en este 
área ya que hasta ahora no hemos trabajado en 
ella. Escribamos un corto programa en Basic: 
10 CLS 
20 PRINT "ÁREA 3" 
Y salvémoslo. Una vez hecha esta operación 
veamos de nuevo el directorio mediante IDIR o 
CAT. 
Esta vez aparecerá únicamente este último 
programa ya que estamos en el área 3 y 
cualquier orden AMSDOS sólo actúa sobre sus 
ficheros. 
Regresad a la zona O usando: 
IUSER,O 
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y comprobad todo lo que os decimos. Como 
siempre, os invitamos a que realicéis cuantas 
pruebas se os vayan ocurriendo. Seguimos 
pensando que esta es la mejor forma de 
comprobar sobre vuestras «mismas carnes» el 
funcionamiento de un montón de cosas y sobre 
todo comprobar una serie de particularidades que 
sin imaginación no llegariamos a conocer. 
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Otra posibilidad que nos ofrece AMSDOS es la 
de transferir un fichero de un área a otra. Si no 
queremos que cambie de nombre bastará con 
usar conjuntamente la orden IREN, con todo 
esto que os hemos contado sobre las áreas de 
usuario, tecleando: 
IREN, "O:PEPE.BAS", "3:PEPE.BAS" 
si así habíamos llamado al programita anterior. 
Habrá desaparecido de la zona 3, como se puede 
comprobar con: 


IUSER,3 


y 


CAT 
para colocarse en la O. Aseguraos, ¡hombre!: 
IUSER,O 


seguido de: 


CAT 


¿Queréis también cambiarlo de nombre? Pues 
indicádselo al Amstrad. 


IREN, "3:]OSE.BAS", "O:PEPE.BAS" 
dará al fichero PEPE. BAS de la zona O el 
nombre ]OSE.BAS y lo asigna al área 3 de 
nuevo. Esto de los USER es una forma de 
dividir y preparar el disco para ser utilizado por 
. . 
vanos usuanos. 
Bueno, ¿qué os parece si lo dejamos por esta 
ocasión? Os invitamos a que nos acompañéis en 
sucesivas semanas en las que continuaremos 
contandoos nuevas cosas sobre manejo de disco. 
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Con el fin de acelerar lo más posible el correo. y poder resolver o contestar a 
todas las dudas y sugerencias que llegan a nuestra redacción, a partir de esta semana 
os rogamos, en beneficio de todos, consignar en el sobre, en lugar bien visible, una 
de las denominaciones siguientes: 



 

 


- Suscripciones AMSTRAD. Para todos aquelos casos relacionados con petición 
de cintas. números atrasados, formalización de suscripciones, devoluciones, ete... 
- Mercado Común AMSTRAD. Compras, ventas, intercambios, clubs... 
- Serie Oro AMSTRAD. Para los programas que nos enviéis para su 
publicación. 
- Sugerencias AMSTRAD, Para vuestras críticas, sugerencias (} cualquier 
opinión que queráis vertir sobre la revista 
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Gigantes te espera codo martes en tu kiosco. Uno revisto impres- 
cindible pora todo aficionado. Gigantes del Basket te ofrece los 
últimos noticias, los meiores fotos, los opiniones que te interesan, 
los entrevistos que esperas, los anécdotas que te divierten y los 
los comentarios que te gusto conocer. 
Pidela todos los semanas, porque Gigantes do lo tollo. 
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Esta sección está dedicada a todas las compras, ventas, clubs de 
usuarios fe Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores. IOdo aquel que lo 
desee puede enviamos su anuncio, mecanografiado, a: HOBBY 
PRESS, S.A. AMSTRAD Semanal. Apartado de Correos 232 
Alcobendas. Madrid. 
¡ABSTENERSE PIRA T AS! 


. . . . . . . . . . . . . . 


Desearía contactar con 
usuarios de Amstrad 464 CPC 
para intercambiar juegos. 
Tengo alrededor de 50 juegos 
buenos. 
Los interesados escribir o 
llamar a César Alonso Pena. Pl. 
Sagrado Corazón dt: Jesús, 2. 
Tel. (91) 411 72 01 (entre las 5 
y las 10). 28002 Madrid. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 464 
monitor color con manuales, 
más de 30 revistas, cintas con 
juegos y utilidades (Batman, 
Cyrus II Chess, Bomb Jack, Light 
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Force, Strike Force Harrier, 
ensamblador, desensamblador, 
procesador de textos, 
copiadores, ete.), joystick, 
tapadera teclado, libros. Todo 
por sólo 75.000 ptas. Llamar a 
Manolo. Tcl. (91) 255 89 01. 
Madrid. 


. . . . . . . . . . . . . . 


Para PCW 8256/8512 , por 
fin en España, Softwart' Public 
Domain para PCW. Lenguajes 
(C, Pase al, Forth, Prolog, 
Lisp), y utilidades (también 
para CPC 6128). Aliscalc: hoja 
de cálculo con sistema de 
auto diagnóstico de errores de 
fórmulas. Alisbase: base de 
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"Sábado Chip ", de 17 a 19 h. 
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datos, acceso indexial sistema 
B + Trec, rapidísimo, hasta 
32767 registros. Alisútil: paquete 
de utilidades para tratamiento 
de ficheros. Compresor: ahorra 
un 40 por 100 de espacio de 
disco, cucntapalabras. Cifrador 
de textos, Alissort: ordena 
ficheros. Cada disco sólo 1. 750 
ptas. R. Uphoff. Castillo. 7. 
18184 Beas (Granada). 
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. . . . . . . . . . . . . . 


Club de Usuarios Amstrad 
Manresa compra, vende y 
cambia programas para CPC 
664-6128. Poseemos más de 300 


I
 



programas entre juegos V 
utilidades. Ú]tim
s 
ovedades 
en juegos y utilidades. 
Interesados escribir a Jordi 
J,fominó i de la Iglesia. Ctra. 
Santpedor, 80, 4.°, 2. a . Te!. 
(93) 873 m 76. 01)240 Manresa 
(Barcelona). 


. . . . . . . . . . . . . . 


Poseo un PC 1512 y ]a 
impresora Seikosha 1000.1. Me 
gustaría intercambiar programas 
e información con usuarios de 
Compatibles IBM. 
Tengo entre otros: Flight 
Simulator, C, Printmast6T, Turbo 
Pascal. Pinball, ete. Llamar o 
escribir a Miguel Garda Vázquez. 
GuadaIcte. 14, 3. 11012 Cádiz. 
Tt'L (956) 28 56 69 (de 2 a 3). 


. . . . . . . . . . . . . . 


Intercambio programas y 
fotocopias de libros referentes a] 
PCW, solamente en Má]aga, 
preguntar por Eugenio en el teL 
43 53 29. 


. . . . . . . . . . . . . . 


Traslado ficheros generados 
por Amsfile a ficheros 
gesti(Jnab]e
 por Dbase 11, a 
partir de los archivos 
"Nombre" .DA T; 
"Nombre" .DEF; 
"Nombre" .NDA. Interesados 
escribir a José Luis Aguado. 
Curtidores, 3, 5. 0. 47006' 
Vallado]id. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 6128, 
con monitor 'en fósforo verde, 
en perfectas condiciones y 
acompañado de muchos discos 
con programas de juegos y 
utilidades. Interesados llamar a] 
(988) 74 66 48 a partir de las 
15,30 horas los días laborales. 
César. 


. . . . . . . . . . . . . . 


Urge conseguir los manuales 
de Dbase II y Pascal Compas, así 
como los programas MS Cobol y 
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Todos los sábados, de 5 a 7 
de la tarde, en "Sábado Chip" . 
Dirigido por Antonio Rua, 
Presentado por José Luis 
Arriaza, hecho una 
computadora, Dedicado en 
cuerpo y alma al ordenador, 
y a la informática, Haciendo 
radio chip... estilo Cope, 
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U'ordstaT con manuales de 
instrucciones. Los cambio por 
otros programas y manuales, 
lista con más de 200. Escribir a 
FeTmín Garcia Nieto. Gran Vía, 
10, 1-A. 30004 Murcia. 


. . . . . . . . . . . . . . 


Deseo contactar con usuarios 
del Amstrad PCW para 
intercambio de programas. 
Interesados escribir a Alberto 
Gon:::ález. Sueca, 17, pta. 27. 
4-6006 Valcncia. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 6128 
FV, cable para conexión de un 
cassette. 25 discos con los 
mejores programas del 
mercado, casi todo utilidades. 9 
cintas con programas, 6 cintas 
vírgenes, las últimas 12 revistds 
de Amstrad User, y la 
colección, casi completa, de la 
revista AMSTRAD Semanal, 
incluida la suscripción hasta 
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Esta ,ección está dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, programadores y, en general, cualquzer clase de 
anuncio que pueda servir de utilidad a los lectores. IOdo aquel que lo 
desee puede enviamos su anuncio, mecanografiado, a: HOBBY 
PRESS, YA. AMSTRAD Semanal. Apartado de Correos 232 
Alcobendas. Madrid. 
¡ABSTENERSE PIRA T AS! 


finales de año, todo en perfecto 
estado, sólo por 90.000 ptas. 
Interesados llamar al te!. (988) 
7466 48, a partir de las 15,30 
horas. 


. . . . . . . . . . . . . . 


Si quieres pertenecer al 
mejor club en España de 
Spectrum-Amstrad, lo único 
que tienes que hacer es enviar 
tus datos a Javier Gracia. 
Sangenís, 71-73, 10. o A. 50010 
Zaragoza. 


. . . . . . . . . . . . . . 


Comprada impresora 
compatible con el Amstrad 
6128 en buenas condiciones. 
Precio al contado. Interesados 
llamar al te!. 403 75 OO. 
Preguntar por Eloy. Madrid. 


. . . . . . . . . . . . . . 


Vendo el juego de los Goonies 
en disco, para Amstrad 6128, y 
un videojuego con un cartucho 
de juegos de regalo. Estas cosas 
también las puedo cambiar por 
un joystick o por el disco que te 
regalan al com prar el ordenador 
Amstrad de la serie CPC en 
disco. Los interesados llamar al 
te!. 231 05 60 de Madrid. 
Llamar tardes. 


. . . . . . . . . . . . . . 


Vendo ordenador Amstrad 
CPC 464. Regalo guías del 
usuario, un montón de juegos 
(Garne Qver, Three weeks in 
para di se, 3-D v o ice, Ches 3-D Gran 
Prix, Cauldron Il, Knightlore, 
etc.), otro montón de utilidades 
(GEN A-3, MON A-3, Mini- 
office, Answord, programas de 
matemáticas. etc.) y nueve 
copiones. También regalo curso 
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para aprender el uso del 
ordenador. Del precio ya 
hablaremos. También cambiaría 
por un CPC-6128. Llamar al 
te!. (91) 78604 77, después de 
las 9 de la noche. Preguntar por 
José. 


. . . . . . . . . . . . . . 


Vendo Amstrad 6128, color, 
nuevo, aún en garantía. Filtro 
Polac, fundas, manua!. Los 
juegos: Skyfox, Glass, Fighter 
pilot, Topgun, Elite, etc. Todo 
por 95.000 ptas.; precio en el 
mercado 150.000 ptas. Tel 
206 14 29 (de 2 a 5 de la 
tarde) . 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 464 
con monitor en color, 
manuales, revistas AMSTRAD, 
juegos, ajedrez tridimensional, 
ensamblador, desensanblador, 
procesador de textos, joystick, 
tapadera teclado, libros de 
lenguaje máquina. Todo por 
70.000 ptas. Preguntar por 
Manolo en el te!. (91) 255 89 91. 
Madrid. 


. . . . . . . . . . . . . . 


Intercambio programas para 
Amstrad PCW 8256, utilidades 
(ext. gráfica Basic PCW, 
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compiladores, gestión), por 
otros que no posea: aventuras 
conversacionales, juegos arcade, 
simuladores, gestión. Llamar al 
te!. 27447 07. Preguntar por 
Angel. Madrid. 


[ 


. . . . . . . . . . . . . . 


Intercambio programas, 
experiencias, y hago todo tipo 
de programación, sobre todo 
referidos a gestión, para 
Amstrad PCW 8256/512. 
Escribir a Alfonso Franco. Aptdo. 
Correos, 99. Jerez de la 
Frontera (Cádiz). 


. . . . . . . . . . . . . . 


NECESITAMOS personas 
que conozcan profundamente 
lenguaje ensamblador del Z80 y 
dominen los ordenadores Amstrad 
CPC desde el punto de vista del 
Lenguaje Máquina. 
Si usted es uno de ellos póngase en 
contacto con nosotros rápidamente 
en la dirección que se indica a 
continuación, poniendo en lugar 
muy visible del sobre. 
Referencia 
Código Máquina 
AMSTRAD Semanal 
Nuestra dirección es: 
AMSTRAD Semanal 
Carretera de Irún, km 12,400. 
Fuencarral. 28049 Madrid. 


NECESITAMOS personas 
que conozcan profundamente lenguaje ensamblador del 8086/8088 y 
dominen los ordenadores compatibles IBM PC desde el punto de vista del 
Lenguaje Máquina. Se valorarán en gran medida conocimientos acerca del 
DOS. 
Si usted es uno de ellos póngase en contacto con nosotros rápidamente en la 
dirección que se indica a continuación, poniendo en lugar muy visible del 
sobre: 
Referencia DOS AMSTRAD Semanal 
Nuestra dirección es: 
AMSTRAD Semanal 
Carretera de Irún, km 12,400. 
Fuencarral. 28049 Madrid. 
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Por: César Lobato 


Mundo del 


CPC 


El artículo que sigue está pensado para que los estudiantes) bien de 
CO U o de los primeros cursos universitarios de una facultad de ciencias) 
puedan aprovechar la capacidad de cálculo de un CPC en la resolución de 
un tradicional problema de física muy tedioso de erifrentar a mano. Por ello, 
no se han hecho muchas concesiones en el sentido de divulgar el lenguaje en 
el que se explica lo que hace el programa y cómo. Aquellos que estén 
interesados en el tema lo captarán perfectamente a la primera ojeada. 


E ste programa ha sido diseñado como 
complemento a Newton para tratar los casos con 
mayor número de masas que Newton no 
consideraba, pero si se utilizan más masas, su 
método de ecuaciones resulta demasiado largo y 
engorroso, por lo que obliga a trabajar con una 
mecánica de mavor nivel como es la mecánica de 
Lagrange. 
No es que las mecánicas sean diferentes, sino 


que la mecamca de Lagrange es más fácil SI 
sabemos derivar. 
En la mecánica de Lagrange en vez de utilizar 
un sistema absoluto de coordenadas. utilizamos 
una serie de restricciones y de coordenadas 
relativas al problema. Será en estas coordenadas 
en las que hallemos ellagrangÍano, que no es 
más que la resta de la energía cinética en las 
nuevas coordenadas y del potencial. 


lB REM 
213 REM 
313 REM 
413 REM 
513 REM 
613 REM 
713 REM 
813 REM 
90 REM Este programa calcula las ac 
elera- ciones de masas por lagrang 
e 
1130 OIM r-ez(5) :ERASE rez 
lel DIM masa(S),ang(S),ace(S,5),mat 
r i z ( 4 , 4) , ac e 1 e ( 4) , k a ( 5 , 3) 
1e2 ERASE masa,ang,ace,matrlz,acele 
,ka 
110 OIM a(5),b(5,2),pol(4,8),c(4,2) 
120 ERASE pol,a,b 
I
B MOOE 1 :CLS:OEG:WINOrn
M4,1 ,413,22 
,
5:PAPERM4,3 :CLSM4 
140 WINOOWM2,I ,40,1 ,S:PAPER
2,3:CLS 
M2 
1513 b(I,I)=3B2:b(2,1)=192:b(3,1)=15 
6:b(4,1)=102:b i S,I)=8B 
160 SOUNO 1,239,SB,8:PRINTM2,SPC(17 
);UHOLA";SPC(17);SPC(S);.....)amos a r.e 
soluer un problema";SPC(9);SPC(18); 
IJdell;SPC(18);SPC(11);"planos Inel in 
ados";SPC(12);SPC(12);"maqulna de A 
TWOOO" 
1713 PRINTM4,"masas maximas S":INPUr 
#4, "cuantas masas por fal...'or" ;nJ 
180 IF FIX(nl)<>nl THEN CLSM4:GOTO 
1713 
190 IF nl'=1 OR nl>5 THEN CLSM4:GOT 
O 1713 
21313 d$=CHR$(143)+CHR$(143) 
2113 FOR ,=1 TO ni 
220 a( I )=b(nl, 1 )*i + 32'JH i -1) 
230 IF nl=4 THEN a(i)=a( i)+1 
2413 M(I\)E a(;),9"16:TAG:PRINT d$;:TA 
GOFF 
2SB MOVE 
GOFF 
260 MOl)E a(I),6*16:TAG:PRINT tl M"'ji;: 
TAGOFF 


********************** 
*** programa hecho *** 
*** *** 
*** by *** 
*** *** 
""* CESAR LOBATO "** 
********************** 


2713 NEXT i 
2813 n4=0:CLSM2:CLSM4 
2913 na=I:GOSUB 2880 
31313 REM 98013 mira donde poner el cu 
rsor" 
310 SOUNO 1,ISB,SB,ó:PRINT#4,"Pr-'nc 
'pro de cuer-d.a ";CHR$(224) 
320 n2=na 
33e IF 
2>nl THEN ml=pol(n2-nl,6):m 
2=pol(n
-nl.7):f$=CHR$(224) ELSE mi 
=a(n2):m2=9"16:f$=CHR$(224) 
340 t10'.JE ml,m2:TAG:PRINT f$; :TAGOFF 
3513 PRINTM2,SPC(10);"C Camb,ar. de o 
pc i on ll jSPC( 11) jSPC( 1£1); liD Bor"r"ar-";5 
PC(21);SPC(10)j"O el iges Opcion"; 
3613 REM 8131313 m,r'a s, pulsas 0,0 o C 
3713 GOSUB 26813 
3BB IF pl=2 THEN GOTO 4613 ELSE IF P 
1=3 THEN GOTO 5313 
3913 na=n2+I:GOSUB 288B:nb=na 
4013 IF nb>nl THEN m3=pol(nb-nl,6):m 
4=pol(nb-nl.7):f2$=CHR$(224) EL SE m 
3=a(nb):m4=9*16:f2$=CHRS(224) 
4113 IF n2>nl THEN fl$=CHR$(231):ml= 
pol(n2-nl,6):m2=pol(n2-nl,7) ELSE f 
1$=CHR$(143):ml=a(n2):m2=9*16 
4213 REM BIBB cambia el CUrSor de si 
ti o 
4313 GOSUB 27113 
4413 n2=na:SOUND 1,239,25,7:GOTO 3713 
4513 REM por si nO hay polea que bor 
rar 
4613 IF n4=B THEN SOUND 1,19B,25,7:S 
OUNO 1,2BB,25,7:S0UNO 1,35B,25,7:LO 
CATEM4,I ,2:PRINT*4,.NO HAY QUE BORR 
AR"; : GOTO 3713 
4713 anal=c(n4,1) : ana2=c(n4,2) 
4813 FOR i=1 TO 2:c(n4,i)=B:NEXT i:F 
OR j=1 TO 8:pol(n4,j)=B:NEXT J 
4913 IF anal>nl THEN pol(anal-nl,8)= 
13 EL SE b(anal,2)=B 
51313 IF ana2)nl THEN po' (ana2-nl ,8)= 
13 EL SE b(ana2,2)=B 
5113 n4=n4-I:CLS#4:PRINTM4,"BORRADA" 
:GOSUB 273B:GOTO 2913 


,8*16:TAG:PRINT d$; :TA 


5213 REM borro la polea vuelvo a e 
legi r- 
530 IF n2>nl THEN pol(n2-nl,8)=1 EL 
SE b(n2,2)=1 
5413 IF n2>nl THEN ml=pc,l (n2-nl,6):m 
2=pol (n2-nl,7):fl$=CHR$(231) ELSE m 
l=a(n2):m2=9*16:fl$=CHR$(143) 
5513 MOVE ml,m2:TAG:PRI
IT fl$;:TAGOF 
F 
560 na=I:GOSUB 2880 
570 RBM miro dode poner el cursor 
5813 SOUNO 1,150,50,6:PRINTM4,"FINAL 
de cuerda .1 jCHR$(225); 
590' n3=na 
61313 fl$=CHR$(22S):IF n3>nl THEN ml= 
poI (n3-nl ,6):m2=pol(n3-nl,7) ELSE m 
I=a( n3) :m2=9*16 
610 MOVE ml,m2:TAG:PRINT fl$;:TAGOF 
F:CLSM2 
620 PRINTM2,SPC(10); "C Camb, ar de o 
pClon ll ;SPC(11);SPC(10);UD Borrar";S 
PC(21) ;SPC( lB) ;"0 el iges Opcion"; 
630 REM 81300 mira si pulsas 0,0 o C 
6413 GOSUB 26813 
6SB IF pl=2 THEN GOTO 7113 ELSE IF p 
1=3 THEN GOTO 750 
6613 na=n3+I:GOSUB 2880 
6713 IF na>nl THEN m3=pol(na-nl,6):m 
4=po'<na-nl,7):f2$=CHR$(225) ELSE m 
3=a(na):m4=9*16:f2$=CHR$(225) 
680 IF n3}nl THEN fl$=CHR$(231):ml= 
pol(n3-nl ,6):m2=pol(n3-nl,7) ELSE m 
l=a(n3):m2=9*16:fl$=CHR$(143) 
6913 REM cambio el curSOr de sitio 
7eB GOSUB 271B:SOUNO 1,239,25,7:n3= 
ni>.: GOTO 6413 
7113 anal=c(n4,1) : ana2=c(n4,2) 
7213 REM borro la entrada anterior 
devuel el control a 1413 
7313 IF n2>nl THEN pol(n2-nl,8)=B EL 
SE b(n2,2)=B 
7413 CLS#4:S0UNO 1,219,2S,6:PRINTM4, 
"BORRADA" : GOSUB 27313: GOTO 2913 
7SB IF n3)nl THEN pol(n3-nl ,8)=1 EL 
SE b(n3,2)=1 
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A continuación procedemos a hallar un sistema 
de ecuaciones donde las variables del sistema 
serán las aceleraciones relativas, es decir, las 
segundas derivadas de las coordenadas relativas al 
problema. Muchísimas veces lo que representan 
esas ecuaciones son sistemas de ecuaciones 


SUBRUTINAS 


1100 


1630 


2190 


2360 


2590 
2680 
2710 
2730 


2880 
3000 
3500 


Crea y resuelve el sistema de 
ecuaciones obtenido del problema 
mediante el lagrangiano y las 
ecuaciones de 'Lagrange. 
Presenta un dibujo que es el 
problema que queremos resolver 
mostrando masas, pesos, y 
coordenadas generalizadas. 
Presentación de resultados, 
aceleraciones absolutas (Newton) 
y relativas (Lagrange), Las 
absolutas son obtenidas a partir de 
las relativas, 
Asigna las posiciones de la polea y 
construye los vectores necesarios 
para pasar de coordenadas 
absolutas a relativas. 
Control de fin, 
Mira si pulsas O, O o C. 
Cambia el cursor de sitio, 
Dibuja masas y poleas mientras se 
están metiendo poleas, 
Mira dónde poner el cursor. 
Presentación del sistema. 
Cabecera. 


diferenciales que, incluso, sólo pueden ser 
resoluble s por métodos aproximativos, sin llegar 
nunca a conocer la solución exacta. 
Por lo dicho hasta ahora, puede pensarse que 
el programa es de difícil comprensión; sin 
embargo, en el caso particular que nos ocupa, el 
sistema es lineal y con sólo diagonalizar la matriz 
del sistema obtendremos las aceleraciones 
relativas. 


VARIABLES 


REZ 
N1 
MASA 


ANG 


ACE 


MATRIZ 


ACELE 
A 
B 


POL 


FUX 
FUY 
FUE 


Aceleraciones absolutas. 
Número de masas. 
Guarda el valor numérico de las 
masas, 
Guarda el valor de los ángulos en 
grados. 
Nos dice las poleas que se ven 
afectadas por una masa. 
Del sistema de ecuaciones de 
Lagrange. 
Aceleraciones relativas. 
Posiciones donde poner las masas. 
Posiciones donde poner la primera 
masa según el nú mero de masas y 
masas que ya están unidas. 
Posiciones de poleas y masas que 
une. 
Fuerza eje X. 
Fuerza eje Y. 
Fuerza paralela al movimiento. 


760 REM asigno las pos'clones de I 
a polea y construyo los vectores pa 
ra poder apl icar LAGRANGE 
770 GOSUB 2360 
780 n4=n4+1 
790 GOSUB 2730 
800 REM 9000 dibujar 
810 GOSUB 2S90 
820 REM decison de fin 
830 IF pS=0 THEN CLSM2.CLSM4:GOTO 2 
90 ELSE IF pS=2 THEN GOTO 870 
840 CLSM2:CLSM4.PRINTM4,"pulsa F pa 
ra acabar' ¡ :PRINTM4, "pul sa S para s 
eguir poniendo poleas n ; 
8S0 e$=INKEY$ 
S60 IF e$="f" OR e$="F" THEN GOTO 8 
S0 ELSE IF e$="s" OR e$="S" THEN CL 
SM4:GOTO 290 ELSE GOTO 8S0 
870 REM entrada de Masas,Angulos y 
coef. de rozamiento 
900 p2=0 
910 FOR i=1 TO ni 
920 CLSM2:CLSM4:PRINTM4,"Peso de la 
Masa 11 ; i ; 11 en Kg";: INPUTM4 ,masa( i ) 
930 SOUND 1,239,2S,6:pl=0 
940 PRINTM2,SPC(6) ¡"Si quieres que 
la masa este en"¡SPC(4)¡SPCCI2)¡'el 
Suelo pulsa S"¡SPCCI2)¡SPCCI2)¡"Ve 
rt,cal pulsa V"¡SPC(24)¡"un Plano p 
ulsa P" ¡SPCCI2) ¡"la decis'on 1 imi ta 
el movimiento de la H"; 
9S0 e$=INKEY$ 
960 IF e$="P" OR e$="p" THEN p2=p2+ 
l:pl=2 ELSE IF e$="V' OR e$="v" THE 
N pl=l:p2=0 ELSE IF e$="S" OR e$="s 
" THEN pl=4:p2=0 ELSE GOTO 9S0 
970 IF pl=2 AND p2=2 THEN pl=3.p2=0 
980 KaC i ,3)=p 1 
990 IF pl=1 THEN angC.)=90 ELSE IF 
P 1=2 OR P 1=3 THEN CLSM4 .INPUTM4, "An 
gulo que forma el plano con el suel 
o",angCi) ELSE IF pl=4 THEN angCi)= 
e 
100e IF angCi)}90 OR angCi)(0 THEN 
. GOTO 990 
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1010 IF masaCi)(0 THEN GOTO 920 
1020 SOUND 1,190,20,6.NEXT i 
1030 GOSUB 11 00 
1040 GOSUB 1630 
10S0 GOSUB 2190 
1060 CLSM2:PRINTM2,"pulsa C para Co 
menzar de nUevO pulsa R pa 
ra Resul tados " 
1 0 70 e$= I NKEY$ 
10S0 IF e$="C" OR e$="c" THEN GOTO 
2940 ELSE IF e$="R" OR e$="r" THEN 
GOTO 10S0 ELSE GOTO 1070 
1090 END 
1100 REM Esta subrutina Crea y resu 
lve un sistema de ecuaciones basad 
o en el metodo de LAGRANGE 
1110 REM Construccion de las fuerza 
s en el sentido del movimiento y fu 
erzas perpendiculares a el 
1120 DEFREAL a,f.DIM fuxCS),fuyCS), 
fue(4),furC4),mesC4) 
1130 ERASE fux,fuy,fue,fur,mes 
1140 FOR i=1 TO ni 
IIS0 fuxCi)=masaCi)*9.8*SINCangCi» 
116B fuyCi)=coefCi)*masaCi)*9,8*COS 
C".ngC i» 
1170 NEXT , 
1180 REM Construimos los vectores a 
ceCj)a partor de polCl.,n4,I..nl> q 
ue representaran 1a composicion de 
las coordenadas absolutas en funcio 
n de l
s general Izadas 
1190 FOR i=n4 TO 1 STEP -1 
1200 FOR j-I TO ni 
1210 IF polCi ,j)(0 THEN aceCABSCpol 
C i ,j) )...,i )--1 
1220 IF polC i ,j)}0 THEN aceCpoJ(, ,j 
), i )-1 
1230 NEXT j 
1240 NEXT i 
12S0 REM Construimos la matriz A de 
I sistema de ecuaciones A.x=b 
1260 FOR i=1 TO n4 
1270 FOR .=1 TO n4 
12S0 IF i{}j THEN GOTO 1330 


1290 FOR K=1 TO ni 
1300 IF aceCK,i)=1 OR aceCK,i)=-1 T 
HEN matriz(i ,J)=matrlz(i ,J)+masa(k) 
1319 NEXT K 
1320 GOTO 1370 
1330 FOR K=I TO ni 
134e IF aceCK,i)=0. OR aceCK,J)=0 TH 
EN GOTO 1360 
13S0 IF aceCK,i)=aceCK,j) THEN matr 
izC i ,j)=matrizC i ,j)+m".saCk) ELSE IF 
aceCK,i)=-I*aceCK,j) THEN matrizCi 
,j)=matriz(i ,j)-masa(k) 
1360 NEXT K 
1 370 NEXT j 
13S0 REM Constrimos el vector fuerz 
a en la direccion del movimiento 
1390 FOR j=1 TO ni 
1400 IF aceCj,,)=1 THEN fueCi)=fue\ 
i)+fuxCj) ELSE IF aceCj,i)=-1 THEN 
fueCi)=fueCi)-fuxCj) 
1410 NEXT J 
1420 NEXT i 
1430 IF n4=1 THEN aceleCI)=fueCI)/m 
atriz(I,1> 
143S GOSUB 3e00 
1440 REM Triangularizar la matriz 
14S0 FOR i=1 TO n4-1 
1460 FOR j=i+1 TO n4 
1470 FOR K=i TO n4 
14S0 ma tr, z (j , i )=ma tr i z C j , ' ,-Cma tr I 
z( i ,k)*(ma.triz(j 1 i )/matrlzl i, I ») 
1 490 NEXT K 
IS00 fueCJ)=fueCj)-CfueCi)*Cmatriz( 
j,i)/matriz(i,I») 
ISI0 REM Compruebo aCi ,,)(}0 
IS20 IF matr.zCi+I,i+I)=0 THEN STOP 
IS30 NEXT j" 
IS40 REM Calculamos las aceleraclon 
es 
ISS0 FOR i=n4 TO 1 STEP -1 
IS60 IF ,=n4 GOTO 1
00 
IS70 FOR j=i+1 TO n4 
IS80 fueCi)=fueCi)-Cmatriz 
leCj» 
IS90 NEXT J 


J)*ace 



El programa podemos dividido en tres partes. 
En la primera, entran las restricciones impuestas 
al movimiento de las masas debidas a sus uniones 
mediante poleas. En la segunda, las restricciones 
al movimiento debidas al suelo en el que esté la 
masa, plano inclinado, suelo horizontal, caída 
libre, así como los datos necesarios de masa, 
ángulo. .. etc. Y en la tercera entra el cálculo 
propiamente dicho, y donde hemos utilizado una 


(f) 
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CPC 


simbolización para que derive ellagrangiano sin 
necesidad de derivar, basándonos en las formas 
únicamente cuadráticas que éste tiene. 


.# 



 


161313 acele(;)=fue(,)/matr;z(;' j) 
16113 NEXT ; , 
1615 GOSUB 3131313 
1629 RETURN 
1639 REM pintar 
16413 ca=FIX(64e/nl):CLS:CLSM2:CLSM4 
1659 FOR ;=1 TO ni 
1669 IF ang(;)(ge THEN GOTO 17513 
16713 MOVE a(;)+B,12*16:TAG:PRINT CH 
R$( 231 ) ; :TAGOFF 
16813 MOVE a(;),9*16:DRAW a(,)+32,9* 
16:DRAW a(;)+32,9*16-25:DRAW a(;),9 
*16-25:DRAW a(;),9*16:MOVER 5,-5:FI 
LL 1 
1699 MOVE a(;)+16,12*16,DRAWR 9,-3* 
16 
1799 NOVE a(;)+16,9*16-25,DRAWR 9,- 
29:PLOT a(;)+15,9*16-34:PLOT a(;)+1 
6,9*16-34 
1719 MOVE a(;),6*16:TAG:PRINT"M";;; 
:TAGOFF 
17213 MOVE a(i)+3e,9*16-3
,:TAG:PRIN 
T"P"; i ; :TAGOFF 
17313 Ka5; ,1)=a(; )+8:Ka(; ,2)=12*16 
17413 GOTO 213513 
1759 IF ang(;)}e THEN GOTO 18513 
1769 MOVE ca*(i-I),9*16-26:DRAW ca* 
; ,9*16-26 
17713 MOVE ca*(,-I)+(FIX«ca-48)/3» 
,9*16:DRAWR 32,e,DRAWR 9,-25:DRAWR 
-32,e:DRAWR e,25:MOVER 5,-
:FILL 1 


1789 MOVE.ca*(j-I)+(2*FIX«ca-32)/3 
»+32,9*16-9:TAG:PRINT CHR$(231};,T 
AGOFF 
1799 MOVE ca*( ;'-I)+(2*FIX«ca-32)/3 
»+32,9*16-9,DRAW ca*(;-I)+(FIX«ca 
-48)/3»,9*16-9 
18913 MOVE ca*(,-I)+(FIX«ca-48)/3) 
) , 6*16 :TAG: PRINT"M" ; , ; :TAGOFF 
18113 MOVE ca*(,-I)+(FIX«ca-48)/3) 
)+16,9*16-25,DRAWR e,-2e:PLOT ca*( 
,-I)+(FIX«ca-48)/3»+15,9*16-34:PL 
OT ca*(;-I)+(FIX«ca-48)/3»+17,9*1 
6-34 


1829 MOVE ca*(,-I)+(FIX«ca-48)/3) 
)+3e,9*16-34:TAG:PRINT"P";i ;:TAGOFF 
1839 K".(;, 1 )=ca*< i -1 )+(2*FIX( (ca-32 
)/3»+4e:Ka(i ,2)=9*16-9 
18413 GOTO 29513 
1859 IF Ka(j ,3)=2 THEN GOTO 19613 
1869 MOVE ca*(;-I),12*16:DRAW ca*" 
8*16 
1879 MOVE FIX(ca*(;-I)+(ca-35)/2),1 
2*16-FIX«(3*16/ca)*(ca-32)/2»-5:D 
RAWR 5,(ca/(3*16»*5:DRAWR 313,-«'3 
*16)/ca)*3e):DRAWR -5,-(ca/(3*16»* 
5:DRAWR -39,«(3*16)/ca)*3e):MOVER 
5,5:FILL 1 
18813 MOVE FIX(ca*(j-I)+(ca-35)/2),6 
*16:TAG:PRINT"W;;; :TAGOFF 
18913 MOVE ca*(;-I)+8,13*16:TAG:PRIN 
T CHR$(231);:TAGOFF 
191313 MOVE ca*(;-I),12*16+8:DRAW FIX 
(ca*(;-I)+(ca-35)/2)+8,12*16-FIX«( 
3*16/ca)*(ca-32)/2» 
1919 MOVE FIX(ca*(,-I)+(ca-35)/2)+1 
5,12*16-FIX«(3*16/ca)*(ca-32)/2»- 
«(3*16)/ca)*39)-5:DRAWR e,-2e:PLOT 
FIX(ca*(i-l)+(ca-35)/2)+14,12*16-F 
IX«(3*16/ca)*(ca-32)/2»-«(3*16)/ 
ca.)*30)-15 
19213 PLOT FIX(ca*(j-I)+(ca-35)/2)+1 
6,12*16-FIX«(3*16/ca)*(ca-32)/2»- 
«(3*16)/ca)*
)-15 
19313 MOVE FIX(ca*(,-I)+(ca-35)/2)-1 
7,11 *16-FIX( (I( 3*16/c".) *( ca-32)/2»- 
15:TAG,PRINT"\p";,; :TAGOFF 
19413 Ka(; ,1)=t".*(,-I)+16:Ka(; ,2)=13 
*16 
1 9513 GOTO 213513 
19613 MOVE ca*(;-I),8*16:DRAW ca*',1 
2*16 
19713 MOVE FIX(ca*(,-I)+(ca-35)/2),8 
*16+FIX«(3*16/ca)*(ca-35)/2»+19:D 

HWR -5,
ca/<3*16)J*5:DRHWR 
0,(
3* 
16)/ca)*3e:DRAWR 5,-(ca/(3*16»*5:D 
RAWR -3e,-«3*16)/ca)*3e 
19813 MOVER 5,5:FILL 1 
19913 MOVE FIX(ca*(;-I)+(ca-35)/2),6 


*16:TAG:PRINT"M";; ;:TAGOFF 
21399 MOVE ca*;-16,13*16:TAG:PRINT C 
HR$(231);:TAGOFF 
21319 MOVE ca*; ,13*16-8:DRAW FIX(ca* 
(;-I)+(ca-35)/2)-3,8*16+FIX«(3*16/ 
ca)*(ca-32)/2»+15 
213213 MOVE FIX(ca*(i-{)+(ca-35)/2)+1 
5,8*16+FIX«(3*16/ca)*(ca-32)/2»+( 
(3*16)/ca)*3e+7:DRAWR e,-29:PLOT FI 
X(ca*(i-I)+(ca-35)/2)+14,8*16+FIX« 
(3*16/ca)*(ca-32)/2»+«3*16)/ca)*3 
13-2 
21339 PLOT FIX(ca*(;-I)+(ca-35)/2)+1 
6,8*16+FIX«(3*16/ca)*(ca-32)/2»+( 
(3*16)/ca)*3e-2 
213413 Ka(, ,1)=ca*i-8:Ka(, ,2)=13*16:M 
OVE FIX(ca*(i-I)+(ca-35)/2)+39,8*16 
+FIX«(3*16/ca)*(ca-32)/2»+«3*16) 
/ca)*3e-19:TAG:PRINT"P"; i; :TAGOFF 


21359 NEXT , 
213613 FOR ;=1 TO n4 
213713 IF c( i ,1) )nl THEN vl=pol (c( i ,1 
)-nl ,6) :ul=pol(c(; ,1)-nl ,7) ELSE vI 
=Ka(c(i ,1),I):ul=Ka(c(i ,1),2) 
29813 IF c(; ,2)}nl THEN v2=pol(c(j,2 
)-nl ,6) :u2=pol(c(; ,2)-nl,7) ELSE v2 
=Ka( c ( , ,2) ,1 ) : u2=Ka( c ( ; ,2) ,2) 
213913 pol(; ,6)=(vl+v2)/2 
2199 IF ul>u2 THEN pol(; ,7)=ul+32 E 
LSE pol(; ,7)=u2+32 
21113 NEXT i 
2129 FOR ;=1 TO n4 
21313 MOVE po1<;,6),po1<i,7),TAG,PRI 
NT CHR$(231);:TAGOFF 
2149 IF c(; ,I)(=nl THEN MOVE pol(;, 
6)+8,pol(i,7):DRAW Ka(c(;,I),I),Ka( 
c( i,l) ,2) ELSE MOVE poI(; ,6)+8,pol( 
;,7):DRAW pol(c(;,I)-nl,6),pol(c(;, 
l)-nl,7) 
21513 IF c(; ,2)(=nl THEN MOVE pol(;, 
6)+8,pol (; ,7) ,DRAW Ka(c( i ,2) ,1) ,Ka( 
c(; ,2) ,2) ELSE NOVE poI (; ,6)+8,pol.( 
; ,7) :DRAW poI (c(; ,2)-nl,6) ,poI (c( 1, 
2)-nl,7> 


. 
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Una gran parte de la información entra y sale 
de forma gráfica para que los estudiantes de 
eou o primero que empiecen a ver este método, 
tengan una buena comprobación de los resultados 
por ellos obtenidos al trabajar con Lagrange. 
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2160 MOVE poI< j ,6)+16,pol< i ,7)-16:T 
AG:PRINT"X"; i ; :TAGOFF 
2170 NEXT , 
2180 RETURN 
2190 CLSM2:CLSM4 
2200 FOR i=1 TO ni 
2210 FOR J=I TO n4 
2220 IF ace(i ,J)=I THEN rez(i)=rez( 
i)+acele(J) ELSE IF ace(i .J)=-I THE 
N rez(;)=rez(i)-acele(J) 
2230 NEXT J 
2240 NEXT ; 
2250 PRINTM4,"pulsa G aceleraciones 
General izadas pulsa A acelerac 
iones Absotutas pulsa C Con 
tlnuar" 
2260 e$=INKEY$ 
2270 IF e$="a" OR e$="A" THEN GOTO 
2290 ELSE IF e$="g" OR e$="G" THEN 
GOTO 2320 ELSE IF e$="c" OR e$="C" 
THEN GOTO 2350 ELSE GOTO 2260 
2280 REM aceleracIones absolutas 
2290 CLSM2 
2300 FOR ; =1 TO nI: PRINTM2, "ACELERA 
CIOf\f de la masa"; 1;"=11 ;rez( i) :NEXT 


2310 CLSM4:GOTO 2250 
2320 CLSM2 
2330 FOR ;=1 TO n4:PRINTM2,"ACELERA 
. CI (Jf\f en cuerda 11 ; i ; 11=" ; ace 1 e ( i ) :NEXT 
; 
2340 CLSM4:GOTO 2250 
2350 RETURN 
2360 c(n4+I,I)=n2:c(n4+I,2)=n3 
2370 IF n2}nl THEN ml=pol(n2-nl,6): 
m2=pol(n2-nl,7) ELSE ml=a(n2):m2=9* 
16 
2380 IF n3}nl THEN m3=pol(n3-nl,6): 
m4=pol(n3-nl,7) ELSE m3=a(n3):m4=9* 
1 16 
2390 pOI(n4+I,6)=(ml+m3)/2 
.2400 IF m4}m2 THEN pol(n4+1,7)=m4+3 
2 ELSE pol(n4+1,7)=m2+32 
2410 m5=0 
2420 FOR i=1 TO n4 
2430 IF po'(n4+I,6)=pol(j ,6) AND po 
l(n4+I,7)=pol(, ,7) THEN m5=1 
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2440 NEXT ; 
2450 IF m5=1 THEN m5=0:pol(n4+1,7)= 
(pol(n4+I,7)+32):GOTO 2420 
2460 IF (n2 OR n3)}nl THEN GOTO 248 
o 
2470 pol(n4+I,I)=n2:pol(n4+1.2)=-I* 
n3 
2480 IF n2{=nl THEN pOI(n4+I,I)=n2: 
m5=1 :GOTO 2540 
2490 m5=0 
2500 FOR i=1 TO ni 
2510 pol(n4+I,i)=ABS(pol(n2-nl.i) 
2520 IF pol(n4+I,i){}0 THEN m5=m5+1 
2530 NEXT i 
2540 IF n3{=nl THEN pol(n4+I,m5+1)= 
-1*n3:RETURN 
2550 FOR i=m5+1 TO ni 
2560 pol(n4+1 ,i)=-I*ABS(pol(n3-nl,i 
-m5» 
2570 NEXT , 
2580 RETURN 
2590 ml=0 :m2=0 
2600 FOR i=1 TO ni 
2610 IF pol(n4.i)=0 THEN ml=1 
2620 IF b(i ,2)=0 THEN m2=1 
2630 NEXT i 
2640 IF ml=0 THEN p5=2:GOTO 2670 
2650 IF m2=0 THEN p5=I:GOTO 2670 
2660 p5=0 
2670 RETURN 
2680 e$=INKEY$ 
2690 IF e$="C" OR e$="c" THEN pl=1 
ELSE IF e$="D" OR e$="d" THEN pl=2 
ELSE IF e$="O" OR e$="o" THEN pl=3 
ELSE GOTO 2680 
2700 RETURN 
2710 MOVE m3.m4:TAG:PRINT f2$;:TAGO 
FF:MOVE ml,m2:TAG:PRINT fl$;:TAGOFF 
2720 RETURN 
2730 REM P j n tar 
2740 CLS:CLSM2:CLSM4 
2750 FOR j
1 TO ni 
2760 MOVE a('),9*16:TAG:PRINT d$;:T 
AGOFF:MOVE a('),B*16:TAG:PRINT d$;: 
TAGOFF :MOVE ".( i ) ,7*16 :TAG: PRINT"M" ; 
i ;:TAGOFF 
2770 NEXT 


2780 I F n4=0 THEN RETURN 
2790 FOR ,=1 TO n4 
2800 ol=c"- i,l) :o2=c( i ,2) 
2810 MOVE poI' ,,6),pol(i,7):TAG:PRI 
NT CHR$(231);:TAGOFF 
2820 IF ol>nl THEN m3=pol(ol-nl ,6): 
m4=pol(ol-nl,7) ELSE m3=a(ol)+16:m4 
=9*16 
2830 IF o2'nl THEN m5=pol(02-nl,6): 
m6=pol(02-nl.7) ELSE m5=a(02)+16:m6 
=9*16 
2840 MOVE poI (, .6),pol(; ,7):DRAW m5 
,m6 
2850 MOVE pOl(I,6),pol'I,7 :DRAW m3 
,m4 
2860 NE:X:T I 
2870 RETURN 
2880 IF na,nl+n4 THEN na=1 
2890 IF na'nl THEN GOTO 2920 
2900 IF b(na,2)=1 THEN na=na+I:GOTO 
2880 
2910 RETURN 
2920 IF pol(na-nl,8,=1 THEN n,,=na+1 
: GOTO 2880 
2930 RETURN 
2940 RUN 
3000 MODE 2:CLS 
3001 FOR ,=1 TO n4 
3010 FOR j=1 TO n4 
3020 a=(40-n4*6) '(n4-t-2) :d=(20-2*n4) 
/(n4+1) 
3030 LOCATE a*J+6*(j-I),,*d:PRINT m 
atr" i z( i ,.j) j IIVI' ;.._ 
3040 NE:X:T J 
3050 LOCATE a*(n4+1)+6*n4,,*d:PRINT 
"=" ;fue( i) 
3060 NEXT , 
3070 LOCATE 1,23:PPINT"pulsa Cont 
I nuar" 
3080 e$=INKEY$ 
3090 IF e$t;"C" AND e$, "e" THEN GO 
TO 3080 
3100 MODE I:WINDOW M4,1,40.22.25:PA 
PER M4,3:CLSM4 
3110 WINDOW M2.1,40.1.5:PAPERM2,3:C 
LSM2 
3120 RETURN 
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JUEGOS 


DONKEY KONG 
La bella y la bestia 


Erbe, 


Te!. 44-7 34- 10 


Don Giulio tenía un enonne problema. Donkey 
Kong, el gorila del circo, había raptado a la bella 
Dolly, una de las trapecistas del circo, con la 
intención de vivir una aventura amorosa con ella. 
Esta claro que Dolly no quería saber nada de tan 
velludo pretendiente, por lo que Don Giulio se 
propuso rescatarla de lo alto de la carpa del ,circo, 
lugar donde la había colocado Donkey Kong. Este, 
al ver cómo subía el propietario del circo a través 
del andamiaje, se empeñó en la nada pacífica 
tarea de arrojarle bidones de agua y petroleo. 
Esto suponía el tener que realizar la escalada 
mientras saltaba para evitar los bidones. Pero no 
acababan aquí las dificultades. Algunos de los 
bidones se incendiaban en más de una ocasión y 
ayudaban a caldear el ambiente. Más como este 
caballeroso señor no se arredraba fácilmente, 
rápidamente cogió un mazo que por allí colgado 
vio y, repartiendo mamporros a diestro y 
siniestro, logró romper los bidones y apagar los 
fuegos. 
Bueno, ésta es la romántica historia de amor de 
Donkey Kong y la bella Dolly, pero como estamos 
seguros de que más de una persona estará 
dispuesta a ayudar a Don Giulio a rescatar a la 
trapecista, vamos a darles algunos consejos. 
Para que los barriles no bajen por la escalera 
por la que subimos, será necesario sacar la mano 
justo por encima del nivel de la escalera. 
No debemos salimos de las plataformas puesto 
que perderemos una vida. Esto mismo ocurrirá si 
nos pasamos al saltar. 
Cada objeto que saltemos nos dará 100 puntos, 
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si son dos 300 puntos, siendo 800 puntos si son 
tres los superados. Si en vez de saltar los 
golpeamos con el martillo, ganaremos 300, 500 u 
800 puntos. En la cuarta pantalla ganaremos 100 
puntos si quitamos los tomillos que 
encontraremos. El premio gordo, una vida 'extra, 
nos tocará cuando hayamos llegado a los 10.000 
puntos. 
Planteamiento simple, pero sumamente 
entretenido, el de Donkey Kong. Si añadimos la 
posibilidad de poder jugar con un amigo, los 
buenos ratos están asegurados. 
Gráficamente no es sorprendente, pero está 
bien realizado y tiene un color agradable. Si a lo 
anteriormente expuesto, le añadimos un 
movimiento vivaracho, tendremos como producto 
final un juego realmente simpático. 
Donkey Kong es de Ocean y es distribuido por 
Erbe. 
Digno de mención: el tema. Simple, pero 
adictivo. 
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UCHI MATA 
O cómo aprender 
judo por ordenador 


Erbe. 
Cinta: 875 ptas. 


Tel. 447 34 10 
Disco: 


CJ l. . le - D 
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Llegará un momento en que todo, o casi todo, 
se pueda aprender a través del ordenador. Sirva 
como ejemplo de este hecho, el juego de Martehc, 
Uchi Mata. Con él podremos conocer y aprender 
a realizar todas las llaves de la milenaria arte 
marcial del judo. En un principio deberemos 
mostrar la máxima atención a la demo del juego, 
puesto que los dos contendientes realizarán todas 
las llaves antes mencionadas. A continuación, 
podremos jugar contra un amigo o contra el 
ordenador y... ¡¡Qué gane el mejor!! 
Con un tema tan interesante y del que se 
podía haber sacado mucho más partido, la gente 
de Martech no ha logrado un resultado final 
excesivamente' sorprendente. Gráficamente el 
juego flojo, falta definición, y la realización del 
color es mediocre, ya que en algunas ocasiones da 
la sensación de que se «va», de que se desplaza 
de la figura. El movimiento no está mal pero es 
un tanto mecánico. 
Uchi Mata es distribuido por Erbe. 
Digno de mención: el tema. 
A mejorar: el juego en general 
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PAL1 TRON 
.. La ciudad 
" 
está en peligro!! 
ponla a salvo 
con tu servo class 027 


Eroe. 
Cinta: 875 ptas. 


rIel. 447 34 10 
Disco: 


Como noble caballero del siglo XXI, deberás 
salvar la ciudad con tu rápido y poderoso robot 
Servo Class 027 de los cristales explosivos que 
destruyen todo. Pero como esta misión 
representaría un peligro para tu integridad física, 
deberás programar y utilizar posteriormente los 
más pequeños robots Infra Class Beast Mark 3, 
para realizar misiones que serían prácticamente 
imposibles sin ellos. Los cristales podremos 
destruirlos si cogemos y tiramos sobre ellos, los 
objetos que encontremos a nuestro paso. 
D na curiosidad destacable del juego es la 
posibilidad, ya mencionada anteriormente, de 
programar a los robots Infra-Class. Para hacer 
esto, necesitaremos una pila atómica de carga. 
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Después, nos pondremos al lado de uno de ellos y 
pulsaremos la tecla CTRL, para posteriormente 
utilizar las teclas de cursor o joystick, con la 
finalidad de poder ver el menú y movemos por él. 
Las cajas que hay en la parte inferior de la 
pantalla sirven o indican lo siguiente: 
Las cuatro que se encuentran en la parte 
inferior de la pantalla están destinadas a 
almacenar los objetos que vayamos recogiendo. 
La cajita pequeña en la parte inferior de la 
pantalla, sirve para mostrar la energía que 
tenemos. 
Hay otra que indica el número de vidas con las 
que contamos. 
En el centro derecha de la pantalla se nos 
muestra el número máximo de objetos que 
podemos soltar en esa pantalla. 
Cuando hayamos soltado una bomba, un reloj 
nos indicará el tiempo que queda para que ésta 
estalle y así podremos saber el tiempo con que 
contamos para alejarnos. 
Completo y bien realizado este juego de The 
Edge, que no dudamos que consiga hacer pasar 
buenos ratos a los jugones y a los que no lo son 
tanto. 
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El apartado gráfico, realizado con técnica 30, 
cuenta con una buena definición y colores bien 
aplicados, sí como un movimiento rápido y 
preciso. En esta línea se encuentra también el 
sonido que ambienta el juego. 
Palitron está distribuido por Erbe. 
Digno de mención: El movimiento. Aúna 
rapidez y precisión. 
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EXPLORER 
Busca y encuentra, 
la vida te va en ello 
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Proem S.A. 
Cinta: 880 ptas. 


. "1 


'n,1. 276 22 08 
Disw: 2.695 ptas. 


Tanto tiempo conduciendo naves de 
transporte, que el exceso de confianza te había 
llevado a una relajación de la vigilancia, y a no 
percatarte de cómo los estabilizador es inerciales 
de la nave se debilitan y se separan. Esto te había 
llevado fuera de tu ruta y acercado a la órbita de 
un planeta. Tal fue el impacto. que se partío en 
nueve trozos. Menos mal que pudiste salir a 
tiempo en uno de los módulos de supervivencia, y 
aterrizar en el planeta. Ahora te quedaba lo más 
duro; buscar en un planeta totalmente 
desconocido los cachos de tu nave y ser capaz de 
reconstruida para volver a la civilización. Si bien 
esto ya era bastante difícil, lo que vendría a 
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continuación pondría más emoción en esta tarea. 
En Explorer debemos hacer gala de un buen 
sentido de la orientación y estrategia acercada. 
Para movernos por el planeta deberemos 
utilizar joystick o los números del teclado 
alfanumérico. Nosotros recomendaríamos el 
teclado, ya que confiere mdyor precisión. Cuando 
queramos coger un objeto, utilizar el láser, o el 
radio localizador, deberemos usar cualquier otra 
tecla. 
Pero mientras buscamos, no debemos olvidar 
que hay peligros acechantes. 
Siempre hemos opinado que sobre gustos no 
hay nada escrito, por lo que pensamos que 
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aunque para nostros explorer es un tanto soso 
-demasiada búsqueda, poca acción-, seguro 
que habrá personas que este tipo de juegos. 
mezcla de estrategia y acertijo, les gustará. 
Este juego es gráficamente aceptable, y aunque 
el color es un tanto pobre. no termina de 
desagradar. El movimiento, hecho enteramente 
por scroll, está bien. La cosa que más nos ha 
gustado de Explorer es el efecto zoom. De verdad 
que está bien realizado. 
Explorer pertenece a Electri Deams y es 
distribuido por Proein S.A. 
Digno de mención: el logrado efecto zonm. 
A mejorar: el tema. Un poco soso. 


ACES OF ACES 
Demuestra 
que eres piloto 
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T os simuladores de vuelo siempre han tenido 
un buen número de adeptos. De todas formas, la 
verdad sea dicha, este número de adeptos a 
acogido siempre mejor a los simuladores de 
aviones de combate, llenos de acción y 
posibilidades. Ace 01 Aces entra en este concepto 
lleno, y nos permite la posibilidad de conducir 
nuestro mosquito en varias incursiones diferentes, 
para hacer una demostracióm de nuestras 
cualidades de piloto y llegar a ser un as de ases. 
Pero antes de esto habrá que leerse el completo 
manual de controles de nuestro avión, para poder 
manejarlo apropiadamente. Por razones de 
espacio mencionaremos tan soló los indicadores 
con que contamos y su función: 
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Compás: sirve para indicar nuestra dirección. 
Radar: la pantalla giratoria a la derecha del 
todo, indica la distancia relativa del avión 
enemIgo. 
El indicador vertical indica la altura relativa 
del avión enemigo sobre la nuestra. 
Indicador de velocidad: nos informa de la 
velocidad de vuelo. 
Indicador de altura: evidentemente muestra a la 


altura que nos hayamos. La podremos regular 
tirando o empujando el joystick. 
Horizonte artificial: nos muestra el ángulo de 
nuestro avión en relación al horizonte. 
Palanca de motores: sirve para regular las rpm 
(revoluciones por minuto del motor). Para hacer 
esto deberemos utilizar el joystick. 
Booster: sirve para poder controlar la inclinación 
de las hélices. 
Extintor: su uso es evidente. No obstante, 
cuidado con su utilización, los motores apagados 
por un extintor no pueden volver a encenderse. 
Irim: controla el timón del avión y, por lo 
tanto, la dirección de vuelo. 
Iren de aterrizaje: está siempre en posición de 
subida, pero será interesante el bajarlo en 
ocasiones para reducir la velocidad y poder 
esquivar a los aviones enemigos. 
Flaps: sirven para variar la superficie de 
sustentación alar del avión. Modifican la altura y 
sirven para frenar. Cuidado con hacer 
bruscamente esto último. 
Después de haber repasado los controles con los 
que contamos, pasaremos a continuación a 
enumerar las incursiones que deberemos realizar 
para llegar a ser un as de ases, éstas son: 
Bombardeo de trenes: se trata de detener un tren 
de prisioneros que va camino de Berlín, y 
liberarlos. i ¡Cuidado con bombardear los vagones 
de la Cruz Roja!! 
Bombardeo de submarinos: los submarinos 
preparan un ataque a un convoy en el Atlántico 
norte. Deberás detenerlos antes de que salgan de 
sus bases. 
Lucha aérea: cuidado con los cazas enemigos, 
aparecen al azar y son difíciles de derribar. 
Bombas V--l: destrúyelas antes de que lleguen a 
Londres y lo reduzcan a cenizas. 
Completo, por no decir completísimo, este 
simulador de vuelo de U.S. Gold. Pero como todo 
esto no serviría de nada sin no estuviera bien 
realizado, nosotros podemos afirmar que Ace oi 
Aces lo está. Los gráficos son buenos, el color es el 
que se podría esperar en un simulador, al igual 
que el movimiento. Si para terminar añadimos 
que las acciones están bien desarrolladas, se 
puede decir sin duda que este simulador 
convencerá, como a nosotros, a más de una 
persona. 
Aces oi Aces es distribuido por Erbe. 
Digno de mención: dentro de una línea 
bastante alta, el número de acciones bélicas 
tocadas. 


lit. 


.. I I . 
I
 . I"ZNL IU U»tTlHUL 


.- - 


n, 1 r 
!.- 
'In 


,U' 
llnn H 


.J# 


...... 



 
.. 



 


----- 
11f:-1:," PT 
.. - ..,. .1Jc. 
-:rNTI::-....L.I:'(;r..
CI'" _ 
7Utsns --o - '
I:.PtJr.tT... 
NI=-.t(J:")
;J
" .1J:
:::
r!) 
1, 'r(Jfb'í 0- 
... itr.. 
'-n
¡T iJ'T U:J'
Xt:::llNNt!.,__ 
H{J{;'(I;"Y.' "«JT::J.. 
I"J 0. 0 " U'11NNO N . 
SJ:'
,( ...j{Jt!J'f 'Jj_ T 
 .._ 
DC.) h
uy :Ttro

f{)''''''' 


-+- 


t"ltRt:t
 T,S 


l.Jt".IJ:....trr-.
 _ 


41 


+' + ++ ) I 


'
s 
-'RDt:,
> 


,+ 
nJEL '- 


()OtII'= 


.,- 
LonI' u'£Ttl 
 AMO 



. 
\ 


I 


I 


I 


fl 


. 


. "'




-;,.




 


, 
I 


, 


. 

 


, 


I 


Para solicitar 
las tapas, 
remítanos 
hoy mismo 
el cupón de pedido 
que encontrará 
en la solapa 
de la última página 


.' 1::1: . PBI.'ss 


( 
 


-------- 
--
 
,--j 1'! 
- 


l1?iJ:íl! ,
 


No ne c esita encuadernación, 
gracias a un sencillo 
sistema de fijación 
que permite además 
extraer cada revista 
cuantas veces sea necesario. 
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Cambios en el programa 


En muchas ocasiones, una vez terminado un 
programa, nos vemos en la tediosa obligación de 
variar una palabra por otra, y esto naturalmente 
a lo largo de toda la longitud de éste. 
Esta tarea puede resultar de lo más tediosa 
cuando nos vemos en la obligación de realizarla 
sobre un buen número de palabras. 
La utilización de esta utilidad es muy sencilla y 
sólo hay que seguir las instrucciones que se nos 
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soliciten. La única precaución que deberemos 
tomar es que el programa Basic deberá haber 
sido grabado previamente en ASCII, es decir, 
save «programa»,a, que es la forma que el 
locomotive emplea para este tipo de formato 
de archivo. 


10 MODE 2 
20 WI NDOW #0 1 

:PAPER #0 l' ,60,l,25:PEN 
00 WINDOW in 65 #0, 
40 CLB #1. : 
,80,1.25 
50 INPUT .: CLb #0 
" . ro L PALABRA 
. ,
EC$ A CAMBIAR? 
60 INPUT .. 
". r-. A M'" CAMBIAR P OR 
 
. ,'J L'L.DIO$ 4 i. . 
70 INPUT "PROG 
, .. ; PROG$ RAMA A MOD I F I CAR 


 OPENIN pro g $ 
.:11.... OPENOUT 
100 W prog$ 
. HILE NOT(E 
110 L TNE 1 ' .OF) 
120 PRINT NPUT #9,Q$ 
130 IF INS


a$ 
GOTO 170 ,A$.ELEC$»O TREN 
140 PRINT 
150 WEND #9. Q$ 
160 END 
170 PRINT #0 " 
-- -... · ----NUEVA LINEA- 


O MID$(a$, INR
 . 
N\elec$»=carobiL
(a$,elec$) LP 
190 PRINT A o.!£-. ' - 
J '--'0 0 $ 
é GOTO 130 


\ 
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Eliminar lo innnecesario 


Al terminar un programa, siempre quedan 
caracteres blancos al final de las líneas. Este 
programa realiza la labor de eliminarlos, con el 
consiguiente ahorro de memoria que esto supone. 
A pesar de lo sencilla que resulta esta tarea, 
ésta se complica al no poder ver si realmente 
existen o no estos caracter
s. 
Al igual que el programa anterior, la labor se 
realiza tratando el programa Basic a modificar 
como un simple fichero de texto y para lo cual, 
debemno, haber gmbado é"e en modo 
s\:. 
.. 
,. 
.
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:N iN' Tl
m$ 
;
 OPENOU
O
O

F 
40 
HILE I 
PUT #9,a$ 
LINE 

 - l' 
50 

RIGHT$\a$, $ '=LEFT$ 
7 0 char
 ti ti 'T'HEN a 
- $- 
 
80 lF cha:')=l):GOTO 70 
- $ . LEN(a$ 
<..a · # Q a$ 
100 PRINT .
, 
110 'WEND 
\ 120 CLOSEIN 
13 O CLOSEOtJT 
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Aperturas multicolores 


Con este programa conseguiremos varias 
aperturas, que podremos fácilmente utilizar en 
nuestros propios programas. 
Una vez ejecutado le ofrecerá la primera 
apertura gráfica en espera de la pulsación de una 
tecla, tras lo que comenzará la siguiente. 
No nos cansaremos de repetir que el verdadero 
interés de estos programitas es incitarle de alguna 
forma a que realice sus propias modificaciones y 
que estudie los distintos efectos que éstas 
provocan. 
Por ejemplo, le recomendamos que juegue con 
los sistemas de impresión, OR, XOR, AND; 
seguro que obtendrá buenos resultados. 
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BOUTIOUE DEL ORDENADOR 


AMSTRAD pcw ... 69.500 
AMSTRAD 464 .... 39.500 


Procedentes de exposicio- 
nes o cambios. Garantizados, 
impecables. 
Consulte para unidades de 
disco, impresoras, etc... 


ENVíos A TODA ESPAÑA 
Te!.: (91) 416 13 02 (tardes) 


", 


1 O (TS 
20 DEFINT a-z 
30 WHILE INKEY$=.... 
40 FOR n=1 TO 600 STEP 10 
50 FLOT O,n,l:DRAW 600,n 
60 PLOT n,O:DRAW n,400 
7C! NEXT 
80 FOR n=1 TO 600 STEP 10 
90 FLOT O,n,O:DRAW 600,n 
100 PLOY n O,O:DRAW n,400 
110 NEXT 
120 WEND 
130 WHILE INKEY$="" 
140 FOR n=1 TO 200 STEF 4 
1
n PLOT 0.400-n, l:DRAW 600,40 
O-n 
160 PLOT O,n,l:DRAW 600 ,n 
170 NEXT 
150 FOR n=200 TO 1 STEF -4 
190 PLOT 0,200+n,0;DFAW 600.20 
O-n 
200 FLOT O,200-n,0:DRAW 600,20 
O+n 
210 NEXT 
220 FOR n=l TO 200 STEP 4 
230 FLOT Q,200+n,1:DRAW 600,20 
Oin 
240 FLOT O,200-n,1:DRAW 600,20 
O-n 
250 NEXT 
260 wmm 


. 


NECESITAMOS personas 
que conozcan profundamente lenguaje ensamblador del 8086/8088 y 
dominen los ordenadores compatibles IBM PC desde el punto de vista del 
Lenguaje Máquina. Se valorarán en gran medida conocimientos acerca del 
DOS. 
Si usted es uno de ellos póngase en contacto con nosotros rápidamente en 
la dirección que se indica a continuación, poniendo en lugar muy visible del 
sobre: 
Referencia DOS AMSTRAD Semanal 
Nuestra dirección es: 
AMSTRAD Semanal 
Carretera de Irún. km 12.400. Fuencarral. 28049 Madrid. 


l'.fJf£ ES 
f!
,!!
g: 
"II
 . e)(cepció n , a Que pa


Pdialio de su olde

so tlabai.o en m

s los han 
'nvital a todos, Sin 'dos Que dUl ante el nvertido holas de ted d Si efectIVament m pe nsación pOI 
Quelemos I s CQnvencI. ue han co d un Am stra . .., n como co d la
 Que 
oesde esta C?IU

a de la misma. Esta:ohacel lo im

slbl
 
I habel comPIla 
Ieccionados lecl
:stRAO Se
onol. ';ple Que 
más activa, ,SI cas artimañas, 
?nelas hacen a uno fellcltal
lalemos todos, V 

as publicados pOI lecisam ente esas, SI 
tluco s V pl
ala de la inspilac llon le vían? NosotlO
 los 
 utilidades V, plOgluiele, le envialemos p 28049 Madrid. 
Q ue la chispa ue ' no noS los en lep letaS de luego, la C alta cuales Q Km 12.400. 
. 'pOI Q ssette . d'ca en di' n . 
descubiertO, 
uatlO cintas de 
a si el ledol nos In I no estén ago s ta a
ol Ctra. de ru ci
 l'fucos. 
su esfuelZ o d mes. Adem as , AMSTIlAO emo 5 no/. Referen 
publicamos ca a , . nte dirección: I sobre: AMSTIlAO e
,:,-.. ' 
a la sIgu 1e mente en e . .""""" . 
. I s cartas d . ando clara . . - . . 
Enviar a In IC ". .."", 


AMSTRAD Semanal 27 



e PLET 
U COLEC C 


".. .- . 
....'9 . 
.

.4 
\
 
: \'\\
\
 "o 
J . .'" 
/1' ' 
" 


...'-.. 

. 


., 
., 
. . '"' 


if"..+.
. 

. '.
.
, . 
:. 
 l' 
 

.
.,\
 
'.JI> 
 - \ ....- 


"1' 


"" 


? #_:.A 
, ., ,,"') 


,'
 ...- 
.... 



o 
" 


I 
" 


Remítenos 
hoy mismo 
el cupón de pedido 
que encontrarás 
en la solapa 
de la última página. 
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Solicita los números 
atrasados 
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memorIa 
en gráficos (11) 


Por Alberto Suñer 
Siguiendo con el tema de cómo incluir 
el mayor número posible de gráficos en 
. , 
nuestros programas) en esta ocaszon 
presentamos una rutina con la que se 
consigue ahorrar la mitad de memoria en 
cada uno de ellos. Está especialmente 
indicada para aquellas imágenes que ocupen 
la mayor parte de la pantalla. 


E n algún capítulo anterior ya se ha 
abordado este problema, al cual se le han dado 
algunas posibles soluciones, hoy intentaremos dar 
otra salida a este gran inconveniente que en 
algunos casos nos obliga a rechazar gráficos 
verdaderamente bonitos debido a su gran 
longitud. 
Con el método que comentaremos a 
continuación, estaremos en condiciones de 
ahorrar la mitad de la memoria que ocupe un 
gráfico, en cualquiera de los modos de pantalla 
en que nos permite trabajar nuestro Amstrad. 
Las ventajas de la aplicación de esta rutina son 
verdaderamente asombrosas, ahora bien, esto no 
se consigue por arte de magia, y, por tanto, 
deberá existir algún inconveniente. 


119000 
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10 ORG 
20 
30 
40 j**
MAGNIFICADOR DE GRAFICOS*** 
50 
60 
70 LD BC,TABLA 
BO LD HL,ESPACE 
90 JP IIBCDl 
100 TABLA:DEF
 NAME 
110 JP MAGNI 
120 NAME:DEFM "MAGN" 
130 DEFB "1" +180 
140 DEFB O 
150 ESPACE:OEFS 
160 
170 
lBO 
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190 MA6 NI ' L 
. O A,(IXtO' 
200 LO (ANCHO) A . 
210 SLA 'A 
220 LO (ANCH01) A 
230 LO B,O ' 
240 LO C,A 
3 50 LO (LONG),BC 
160 LO A,CIX+2) 
270 SLA A 
280 SLA A 
290 SLA A 
300 LO (ALrO),A 
310AOO AA 
320 LO (ALTaO A' 
330 LO L, UX+4) 
340 LO H, UX+5) 
350 LO E, UX+6) 
360 LO O, ( IX t 7) 
370 LO (BUFFER',HL 
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X 
IX 
" VII 
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, VII V 
VI 


380 LO (6RAFIC),OE 
390 LO L,(IXt8) 
400 LO H,(IXtl0) 
410 LO (POSIC),HL 
420 LO A,(IXtI2) 
430 CP 1 
440 JP Z,HA6Nll 
450 CP O 
460 JP Z,MA6NIO 
470 HA6NI2:CALL 
480 CALL IHPRE 
490 RET 
500 MIRA2:LO OE,(BUFFER) 
510 LO HL,(GRAFIC) 
520 LO A,(ALTO) 
530 LO B,A 
540 KKK2:PUSH BC 
550 LO (POSIN),OE 
560 LO A,(ANCHO) 
570 LO B,A 
580 KKKl:XOR 
590 BIT 
600 CALL 
610 BIT 


I1IRA2 


A 
7, (HU 
NZ.PON67 
6,(HU 



Gráficos por 


ORDENADOR 


El método utilizado para el ahorro de 
memoria, consiste en aumentar el tamaño del 
gráfico por dos, es decir, igual que si lo viéramos 
a través de una lupa, con lo que, obviamente, se 
pierde algo de resolución gráfica. 
Como ya hemos dicho anteriormente, esta 
pérdida de resolución puede resultar mínima, si 
se aplica a figuras relativamente grandes, ya que 
en ellas queda mucho más disimulada la pérdida 
de resolución. 
Por tanto, aconsejaríamos que este método se 
utilizara únicamente para gráficos que estén 


El mayor problema c
n los 
gráficOs es la memoria 
que ocupan. 


destinados a ocupar gran parte de la pantalla, 
aunque se puede aplicar a figuras de dimensiones 
más reducidas con resultados verdaderamente 
muy buenos. 
La utilización de esta rutina, es especialmente 
recomendada para aplicada en aquellos gráficos 
que deban ocupar gran parte de la pantalla, 
ya que se conseguirá rellenar gran parte de la 
misma con una escasa ocupación de memoria, 
con lo que se podrán obtener pantallas más 
vistosas al estar ocupadas la mayor parte de ellas 
por gráficos. 
Vamos a explicar a continuación cómo 
funciona cada una de las ru tinas para los 
diferentes modos de pantalla. 


I 
I 
I 
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"1, PO"A5 
tiLO ttlll 5 , l \lU 
b30 B\1 "l,PO"'23 
bAO ttlll A .lI-IU 
b50 B\1 "l,P0t40 i 
bbO ttlll 
b10 lO lO£).f:I 11 
baO '1.0R \'J£ 
b90 l"t 3,l\-lU 
leo B\1 "2,PO"b1 
1\0 tlll l '2,l\-lU 
1'20 B\1 "2. PO"A5 
no ttlll \ ,l\-lU 
140 B\1 "1.PO"'2.3 
150 ttlll O l\-lU 
1bO Bl1 "7., PO"O\ 
110 tllll 
1130 l\'J l\'JE.) ,f:I \'J£ 
190 l"t \-Il 
800 l"t 


....- 


o.\,
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Para el modo de alta resolución, el 
funcionamiento es bien sencillo, únicamente se 
trata de duplicar cada uno de los bits que 
componen un byte, con lo que se conseguirá dos 
bytes de gráfico aumentado por cada uno de 
gráfico original. 
Esto se conseguirá chequeando los bits, y en 
caso de que estén a uno, duplicados con unos, y 
en caso de estar a ceros duplicados con ceros. 
Dicha operación se realizará para cada línea 
horizontal. A continuación se duplicarán línea 
por línea, con lo que se obtendrá la 
magnificación en sentido vertical. 
La rutina que se encarga de realizar este 
trabajo, para el modo 1 de pantalla, es similar a 
la anterior, pero en este caso deberemos tener en 
cuenta que los bit s llevan, en este caso, 
información del color con que se va a imprimir el 
gráfico, por lo que se deberá tratar de una forma 
especial. 
Así pues, deberemos tener en cuenta cada una 
de las parejas de bits que se encuentran en un 
byte. 


810 OJNZ 
820 PUSI-/ KKKI 
830 LO I-/L, (PO.sI:
 
840 LO BC,(LON6J 
850 LOIR 
860 POP 
870 POP 
880 OJNZ BC 
890 LO (POS KKK2 
900 RET IN),DE 
9! O HAGN 11 : CALL 
9,¿O CALL HIRAl 
930 RfT IHPRE 
940 HIRAl'LO 
950 LD HL . (GRA DE, (BUFFERJ 
, no 
960 LO A, (AL TDJ 
970 LO B,A 
980 LLL2:PUSI-/ BC 
990 La (POSINJ DE 
IOOO LD A, (ANCl-/óJ 


1010 LD B,A 
1020 lLU: XOR 
1030 BIT 
1040 CALL 
10.50 BIT 
1060 CALL 
1070 BIT 
1080 CALL 
1090 BIT 
1100 CALL 
1110 LO (0£) ,A 
1120 XOR 
1130 INC 
1140 BIT 
11.50 CALl 
1160 BIT 
1170 CALL 
1180 BIT 
1190 CALL 
1200 BIT 


I-/L 


A 
7, (HU 
NZ,PON67 
6,(HU 
NZ,PON4S 
:3. (HU 
NZ,PON23 
2,(HU 
NZ,PONOl 


A 
O£ 
S,(HU 
NZ,PON67 
4, (HU 
NZ,PON4S 
Í, (HU 
NZ,PON23 
O,(HU 
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En este caso, igual que en el anterior, 
tomaremos en primer lugar cuatro bits originales 
con lo que se logrará un byte ampliado y luego 
los otros cuatro. 
Ahora bien, los bits que deberemos tomar en 
primer lugar serán aquellos que lleven la 
información de los dos primeros pixels, que serán 
los bit s 7, 6 con sus correspondientes parejas, 
el 3 y 2. 
El siguiente byte ampliado se formará con las 
restantes parejas de bits. 
Para el modo de menor resolución, es decir el 
que permite mayor número de colores 
simultáneamente, la operación de magnificación 
será algo distinta a las anteriores, ya que en este 
caso el byte original únicamente es capaz de 
imprimir dos pixels. 
Así pues, el byte aumentado que se obtenga 
imprimirá únicamente un pixeL Por lo tanto, en 
este caso se observará la información 
correspondiente al primer pixel, la cual se indica 
en alguno de los bits 7, 5, 3, 1 y se ampliará, 
consiguiéndose así el primer byte ampliado. 
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1210 CAll 
1220 lO (D£j, A NZ, PON01 
1230 INC DE 
1240 INC Hl 
12500JNZ lLl' 
1 :
O PUSH Hl 1 
1z,0 lD Hl,(POSIN) 
1280 lO BC,(lONG) 
1290 LDIR 
1300 POP Hl 
1310 PDP B' 
1320 OJHZ l
l2 
1330 LO (PDSIN) OE 
1340 RET I 
1350 NAGNIO:CAll 
1"':; 0 C HIRM 
;
 ALl IM'RE 
L70 RET 
1380 /'1IRAO'lD 
1
90 lO '. DE, (BUFFER) 

 Hl,(GRAFICj 
1400 lO A, (ALTO) 
1410 lO e,A . 


1420 
MM2:PUSH BC 
1430 LO (POSIN),OE 
1440 lO A,(ANCHO) 
USO LD B,A 
1460 M
Ml: XOR 
1470 BIT 
1480 CALL 
1490 BIT 
1500 CAll 
1510 BIT 
1520 CAll 
1530 BIT 
15.40 CAll 
1550 lD <DE), A 
1560 XOR 
1570 INC 
15BO BIT 
1590 CAll 
1600 BIT 
1610 CAll 
1620 BIT 


la 


La rutina reduce la . 
ocupación de una figura a 
la mitad. 


\ 
 


El restante byte magnificado se conseguirá 
chequeando la información de los restantes bits. 
Debemos tener en cuenta que dichas 
operaciones deberán efectuarse para todos y cada 
uno de los bytes que componen el gráfico 
original. 
Estas rutinas almacenarán el gráfico ampliado 
a partir de la posición de memoria que nosotros 
indiquemos, de esta forma conoceremos la 
localización de nuestro nuevo gráfico. 
El programa que hemos preparado incorpora 
una rutina de impresión para mostrarnos la 
forma del gráfico una vez magnificado, aunque 
dicha rutina se podrá quitar en cualquier 
momento, con sólo eliminar las llamadas que se 
hacen a la misma desde distintas partes del 
programa. 
Debemos tener en cuenta que el gráfico 
obtenido finalmente, tendrá una longitud doble a 
la del gráfico original, cosa que deberemos tener 
presente en caso de que se quiera salvar en disco 
o cinta dicha figura. 
Para realizar esta operación únicamente 
deberemos efectuar un save con la dirección que 
hayamos indicado en la correspondiente llamada 
al programa, y una longitud doble a la del 
gráfico original. 
Para un manejo más fácil de la rutina de 
magnificación de gráficos, hemos preparado un 
nuevo comando RSX, con el cual podremos 
realizar más fácilmente las operaciones de 
ampliación de gráficos. 
Esta nueva instrucción será del siguiente tipo: 


-...- 


NZ,POM23 
O,{"U 
NZ,POMOl 


A 
7,(HU 
NZ,PON67 
5,(HU 
NZ,PON.45 
3,(HU 
NZ,PON23 
l,(HU 
NZ,PONOl 


1630 CALL 
16AO B11 
1650 CALL 
1660 LD (DE>, A 
lt10 lNC DE 
1680 lMC "l 
1690 OJMZ 

l 
1100 PUS" "L 
1110 LO "L.{POSIM) 
1120 LO BC,(lOM6) 
1130 lOlR 
11AO POP "L 
1150 POP BC 
1160 OJMZ 


2 
1110 LO {POSIN).OE 
1180 RH 
1190 POSIM:OEFS 2 
1800 POM01:SE
 O,A 
1810 SE
 1, A 
1820 RH 
1830 POM23:SE
 2,A 


A 
DE 
6,(HU 
NZ,PON67 
.4,(HU 
NZ,PON45 
2,(HU 



Gráficos por 
ORDENADOR 


IMAGNI,MOD,POSX,POSY ,GRAF ,DIRB, 
DIMX,DIMY 
donde cada uno de los parámetros corresponde a: 
Mod Modo de pantalla del gráfico. 
Posx Coordenada vertical de pantalla, 
imprimirá el gráfico obtenido. 
Posy Coordenada horizontal. 
Gral . Dirección del gráfico original. 
Dirb . Dirección del gráfico ampliado, 
Dimx Altura del gráfico original. 
Dimy Anchura del gráfico original. 
De esta forma una vez ejecutada la rutina de 
magnificación, el gráfico ampliado se encontrará 
en la dirección indicada por el parámetro dirb, 
con lo cual lo podremos salvar de la forma 
indicada anteriormente. 
Debemos tener cuidado con el valor que se da 
a dicho parámetro, ya que un valor erróneo 
podría provocar un cuelgue del ordenador. Esto 
ocurrirá si dicha dirección se encuentra cerca de 
la dirección de ejecución del programa, es decir 
de la posición de memoria &8f)f)f). 
Así pues, para que no ocurra nada anormal, la 
dirección del gráfico ampliado, deberá ser lo más 
baja posible para que de esta forma no pueda 
interrumpir en ningún momento nuestro 
programa. 


.-J 


Debemos fijamos también en el valor que se le 
da a la variable mod, ya que dando un valor 
erróneo, el resultado obtenido será inservible, 
puesto que para cada modo de pantalla se 
utilizan diferentes rutinas. 


El programa se especializa 
en gráficos de gran 
tamaño. 


1840 SET 3,A 20S0 AOO I-IL.OE 
1850 RET 2060 LO OE,SO 
1860 PON45:SET 4,A 2010 S SUC:AOO I-IL, OE 
1870 SET 5,A - S SUC 
20S0 OJMZ li 
* 1880 RET 2090 POP 
I 1890 PON67:SET 6.A 2100 LO A,{Al
01) 
1900 ser 7," 2110 LO B, A 
1910 RET 2120 JR COLOC A ,1-1 
1920 ¡RUTINA-I"PRESION 2130 P B\JC:LO 
1930 ¡H-POSICION-VERTICAl-INICIO-l 21AO AÑO 56 
1940 ¡l-POSICION-HORIZONTAl-INICIO-l 2150 CP 56 
1950 ¡OE-DIRECCION-6RAFICO 2160 JR Z,P }AS 
1960 ¡ 2170 LO A,I-I A,a 
1970 I"PRE:lO Hl , (POSIC) 2180 AOO 
1980 lO DE. (BUFFER) 2190 LO ".A 
1990 PUSH DE 2200 JR COLOC OE,0080 
2000 EX OE.Hl 2210 P _PAS:LO 
2010 lO Hl,ICOOO-BO 2220 lO A,I-I 56 
2020 lO B,O 2230 
OR 
2030 lO 0.0 2240 LO "lA I-IL,O E 
2040 OEC E 2250 AOO 


1 
 
.;:-. ......... 


2260 COLOC: PUSH B' 
2270 PUSH C 
; 2 2 9 8 0 0 LO A. (ANCHOf¡ 
LO B A 
2300 p.Bué,: LO 
2310 LO (HU A A,(IX+O) 
2320 INC ' 
2330 IHC 
2340 OJNZ 
2350 POP 
2360 POp 
2370 DJNZ 
2380 RH 
2390 AL TD: DEFS 1 
2400 ANCHO:OEFS 1 
2410 ALTDI:DEFS 1 
2420 ANCI-/OI:DEFS 
2430 POSIC:OEFS 2 
2440 LON6:DEFS 2 
2450 6RAFIC:DEFS 
2460 BUFFER:DEFS 


IX 
IIL 
P_BUCl 
HL 
BC 
P_BUC 


... 
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Gráficos por 
ORDENAD 
'R 
VII 


Los valores a introducir en los parámetros 
correspondientes a la dimensión del gráfico, 
deberán darse en caracteres, tanto en alto como 
en ancho. 
Para aquellos que deseen separar las rutinas de 
ampliación de gráficos de la rutina de impresión 
de pantalla, diremos que las correspondientes, a 
cada uno de los modos son las siguientes: 


le 

 


VII 


V 


VI 


Gracias al Códi g o M" . 
no s . aqulna 
I e aprecia disminución 
a gUna de velocidad. 


PROGRAMA CARGADOR 


Para la utilización de esta rutina, deberemos 
copiar el listado ensamblador que aparece al final 
del artículo, y una vez ensamblado salvado en 
cinta o disco. 
Aquellos que no posean ensamblador pueden 


utilizar el cargador Basic que aparece a 
continuación, y una vez ejecutado, en caso de no 
existir errores, almacenarlo de la forma siguiente: 
SA VE"MAGNI" ,B,&9f)f)f),&lDE 
Cuando deseemos ejecutar el programa, 
deberemos cargar el código objeto en la dirección 
de memoria &9f)f)f), realizando una llamada a 
dicha dirección para inicializar los nuevos 
comandos RSX. 
A partir de ese momento estaremos en 
disposición de ampliar los gráficos que deseemos 
en cualquiera de los modos de pantalla. 


240 DATA 175,203,126,196,145,145,203 
250 DATA 118,196.140,145,203.110.196 
260 DAlA 135.145.203.102.196.130,145 
270 DATA 18.115,19.203,94,196.145 
280 DAlA 145.203,86,196.140.145.203 
290 DATA 78,196.135,145,203.10,196 
300 DAlA 130.145.18.19.35,16.207 
310 DATA 229.42.128.145,231,15.228 
320 DATA 145.237.116.225.193,16.184 
330 DATA 237.83.128,145,201.205,201 
340 DAlA 144.205.150.145.201.237.91 
350 DATA 232.145.42,230,145.58,222 
360 DAlA 145,71,197,237,83,128,145 
310 DATA 58,223,145,71.175,203.126 
380 DAlA 196,145,145,203,118,196,140 
390 DATA 145.203.94,196,135,145.203 
400 DATA 86,196,130.145,18,115.19 
410 DATA 203,110.196,145.145,203.102 
420 DAlA 196.140,145,203,18,196,135 
430 DATA 145,203,10,196,130.145,18 
440 DATA 19.35,16,201,229,42.128 
450 DATA 145,231,15,228,145,237.116 
460 DATA 225,193,16.184,237,83,128 
470 DATA 145,201,205,40,145,205,150 
480 DAlA 145,201,231,91,232.145,42 
490 DATA 230.145.58.222.145,71,197 


--L..,¡ 


MagniO 
Magnil 
Magni2 


Ampliación para modo O 
Ampliación para modo 1 
Ampliación para modo 2 


1 Rt" AHQRRAR "t"QRIA.EN GRAfICOSCII) 
2 RE" PROGRA"A CARGADUR 
10 FQR N=A9000 TQ &91Dt 
20 READ A:SV"A=SV"A+A 
30 POKE N.A 
40 NEXT 
50 If SV"A<)65991 lHEN PRINT 
"tRRQR tN DATAS" 
60 DATA 1,9,144;33,20,144,195 
10 DATA 209,188,14,144,195.24.144 
80 DAlA 77,65,71,78,201.0,0 
90 DA fA 0,0,0,221,126.0,50 
100 DAlA 223.145,203,39,50,225,145 
110 DATA 6,0,79,237,67,228,145 
120 DAlA 221,126,2,203,39.203,39 
130 DATA 203.39,50.222,145.135.50 
140 DAlA 224,145,221.110.4,221,102 
150 DATA 5,221,94,6,221,8&,7 
160 DAlA 34.232,145.237.83,230,145 
170 DATA 221.110,8.221,102.10,34 
180 DATA 226,145.221,126.12,254,1 
190 DATA 202,194,144.254.0,202.33 
200 DATA 145,205.106,144,205,150,145 
210 DArA 201.231.91,232.145,42,230 
220 DATA 145,58,222,145,11.197,237 
230 DATA 83,128,145,58,223.145,11 


500 DATA 237,83,128,145.58,223,145 
510 DArA 71,175,203,126,196,145,145 
520 DAlA 203,110.196,140,145,203,94 
530 DAfA 196.135.145,203,78,196,130 
540 DATA 145,18,175,19,203,118,196 
550 DAfA 145,145,203,102,196,140,145 
560 DATA 203,86,196,135,145,203,70 
510 DATA 196.130.145,18,19.35,16 
580 DAlA 201,229,42.128,145,237,7
 
590 DATA 228,145,237,176.225,193,16 
600 DAlA 184,237,83,128,145,201,0 
610 DATA 0,203,199,203,207,201,203 
620 DAlA 215,203,223,201,203,231,203 
630 DAfA 239,201,203,241.203,255,201 
640 DAlA 42.226.145.231,91,232,145 
650 DAfA 213.235.33.176,191.66.22 
660 DAlA O.29,l
,11,80.0.2
 
670 DATA 16,253,221,225,58,224,145 
680 DATA 71,24,21,124,230.56,254 
690 DATA 56.40.6,124.198.8,103 
.700 DATA 24.8,17,80,0,124,238 
710 DATA 56,103.25,191,229,58,225 
720 DATA 145,11,221;126.0,119,221 
130 DATA 35,35.16,247.225,193,16 
140 DATA 216,201,0,0,0,0.0 


... 
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ClDuque de Sesto, 50. 28009 Madrid 
Te!. (91) 275 96 16 - 274 75 02 
Metro O'Donnell o Goya (aparcamiento gratuito en Felipe 11) 


PTAS. PTAS. 
FIST 11 o... . 875 XEVIOUS ... 875 
SOFTWARE: OS PROGRAMAS, DEEP STRIKE 875 10th FRAME ." 1200 
SUPER SOCCER 875 LEADERBOARD .. . 1200 
POR CADAE
EGIR TERRA CREST 875 EXPRESS RAIDER 875 
GRATI¡
OS STEREO BOLlGRAFO DOUBlE TAKE ..... ..... ......... 875 ACE OF ACES 1200 
SHORT CIRCUIT .................. 875 IMPOSSABAll 875 
- C J DIGITAL + GAUNTlET ......................... 875 SIGMA 7 ........ 875 
_ RELO 
LACA DO DORA EXTRAPLANA ARMY MOVES 875 BAZZOKA BILL .... 875 
BREAKTHRU ......... . 875 DRGON'S lAIR 11 875 
_ CALCULA 4 SUPER 4 .... . .. 1750 SHADOW SKIMMER .... . 875 
¡¡NOVEDADES KONAMI ...... . 1850 PTS!! 


MPRESORAS 20% DESCUENTO SOBRE P.V.P. 


PTAS. 
DlSKETTE 3" . . . . . .. . . .. .. . 735 
DISKETTE 5 114" DClDD ..... 295 
lÁPIZ ÓPTICO SPECTR . 2890 
lÁPIZ ÓPTICO AMSTRAD ..... . 3290 
CINTA C-15 ESPEC 69 
MICRODRIVE . . . . . . . . 495 
ARCHIVADOR DISCOS . ..... .. 2600 


COMPATIBLE PC-IBM 640 K 
2 BOCAS 360 K 
MONITOR FÓSFORO VERDE 
149.900 PTS. (inel. IVA) 


SERVICIO TÉNICO REPARACIÓN TARIFA FIJA: 3.600 PTS 
PTAS. (incl. provincias sin gastos envío) 
SANYO MSX 64 .. . . 28.900 
COMMODORE 128 ....... . . ..54.900 
COMMODORE 128 + TECl MUSICAL. 57.900 


SPECTRUM PLUS + CASCOS MÚSICA STEREO 
19,800 PTS (ind. IVA) , 


CABLES E INTERFACES 
20% DTO. SOBRE P. V. P. 


AMSTRAD 464 VERDE ENTRADA 7.000 PTS, 12 MESES A 4.900 PTS. 
AMSTRAD 464 COLOR ENTRADA 9,800 PTS. 12 MESES A 7.500 PTS, 
AMSTRAD 6128 VERDE ENTRADA 8.900 PTS. 12 MESES A 7.182 PTS, 
AMSTRAD 6128 COLOR ENTRADA 14.900 PTS. 12 MESES A 9,900 PTS. 
12 MESES CON EL 0% DE INTERÉS, ¡¡MICR0-1 TE LO FINANCIA GRATIS!! 


. CADENA MUSICAL 27.900 PTS. 
VIDEO VHS AKAI 79.900 PTS. 
RADIOCASETTE STEREO 6.895 PTS. 


TIENDAS Y DISTRIBUIDORES, PIDAN LISTA DE PRECIOS AL MAYOR. 
(/ GALATEA, 25. TElF. (91) 274 75 03 


RATÓN PARA AMASTRAD Y COMMODORE CON SOFTWARE 6.900 PTS. 
:1\c,\<. 
S )0'1 5 V,t>.C). 
of
tt"1
 \.,?»q') 

.1q') 
\ .qq') 

 .')q') 
\ ,,?»q') 


PEDIDOS CONTRA REEMBOLSO SIN NINGÚN GASTO DE ENVío 
LLAMA POR TELÉFONO. ADELANTAS TRES DíAS TU PEDIDO 
TELF. (91) 274 75 02 I (91) 275 96 16 (DURANTE LAS 24 HORAS) 



HARMA 


de Proa 
P,V,P,: 67,200 


Ofrece un interesante 
programa de cálculo de 
estructuras de hormigón 
armado, que dará acceso a 
los profesionales de la 
arquitectura e ingeniería a la 
resolución, mediante 
ordenador, de los antes 
complicados y largos cálculos 
de pórticos. 
La resolución mediante 
cálculo matricial permite una 
mayor fiabilidad y seguridad 
en los cálculos, así como un 
gran ahorro de tiempo. 
Por otra parte, la mayor 
seguridad en los cálculos, 
comporta una notable 
reducción de costos de obra 
para el constructor. 
El programa Harma calcula 
cualquier pórtico plano de 
nudos rígidos con vigas y 
pilares de sección constante, 
por lo que resulta ideal para 
el cálculo de pórticos de 
hormigón armado. 
U tiliza el método matricial 
de las deformaciones, 
determinando tanto las 
debidas a flexión como las de 
esfuerzos axiales. 
1. Capacidad: 
La capacidad depende de 
la máxima diferencia de 
numerdciones entre nudos 
extremos de la barra. 
Como dato orientativo 
podemos decir que en una 
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retícula sin ningún tipo de 
modificación (que la máxima 
diferencia entre extremos de 
barras sea igual a los vanos 
más uno) admite alrededor 
de cien nudos. 
Así, por ejemplo, un 
pórtico de cuatro 
anos, 
admitiría veinte pISOS, uno 
de tres vanos, treinta pisos, 
etcétera. 


2. Entrada de datos: 
a. Geométricas: 
La entrada de datos se 
realiza mediante un editor 
gráfico a partir de la 
generación de una retícula 
de vanos y plantas que 
sirve de base para el 
diseño final de la 
estructura. 
No tenemos ningún tipo 
de restricción respecto a la 
geometría, por lo que 
podremos fijar hasta barras 
inclinadas, muy útiles para 
incluir, en la retícula de 
vigas y pilares, escaleras y 
cubiertas inclinadas. 
Tampoco hay 
restricciones en vínculos 
externos, que pueden ser 
empotramientos, 
articulaciones, apoyos 
horizontales o verticales, 
así como voladizos. 
b. Cargas: 
Harma admite hasta diez 
hipótesis simples con un 
número máximo 
de diez combinaciones 
entre ellas, con un número 
de cargas prácticamente 
ilimitado para cada 
hipótesis. 
Por ejemplo, en una 
estructura de 178 nudos, 
admite un máximo de 480 


cargas en barras y 480 cargas 
en pudos. 
3, Salida de resultados: 
a. Hipótesis simples. 
El programa nos da los 
desplazamientos de los 
nudos en centímetros y 
sus giros en grados así 
corno los esfuerzos 
intermedios en todas las 
barras en toneladas y 
rnetros. 
Proporciona también las 
reacciones en los nudos 
soportes (generalmente lds 
zapatas) por el método de 
equilibrio de fuerzas en 
nudos. 
b. Combinaciones de hipótesIs: 
Opcionalmente pueden 
darnos los esfuerzos y 
armado, en centímetros 
cuadrados. en cinco 
secciones por barra. 
Estudia la combinación 
más favorable de hipótesis 
y da el armado, en 
centímetros cuadrados, en 
todas las barras. 
Dibuja el armado 
longitudinal y transversal 
de las vigas en la 
combinación más 
desfavorable de hipótesis. 
Además, podemos elegir y 
cambiar la escala a la que 
salen los resultados. 
La representación de la 
viga se hace en sección 
tanto logitudinal como 
transversal, con la 
representación de anclajes 
y montajes de armaduras 
según la EH-82. 
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CLUBS DE VÍDEO 


de Megsoft 
P.V.P.: Sin confirmar. 
La amplia difusión de que 
gozan los Vídeo-Clubs se ha 
visto facilitada por los 
programas dirigidos a estos 
comercios, cuyo trabajo de 
control y seguimiento es 
demasiado intenso. 
Por ello, como ya en otras 
ocasiones hemos comentado 
en este catálogo de PCW, es 
inestimable la ayuda prestada 



por estos programas a los 
Vídeo-Clubs, en los que el 
usuario tan sólo requiere 
elegir aquel programa cuyas 
prestaciones mejor se 
adecúen a sus 
requerimientos. 
De aquí nuestro interés de 
ofrecer la más detallada 
información sobre las 
posibilidades que nos ofrece 
cada producto. 
La presente aplicación ha 
sido desarrollada para llevar 
todo el control de socios, 
películas, movimiento y 
realización automática de 
recibos, de acuerdo con los 
siguientes criterios: 
1. Fichero de socios: 
· Datos personales. 
· Fecha de inicio como 
SOCiO. 
· Tipo de sistema de 
vídeo. 
· Datos bancarios para 
el caso de que el recibo 
esté domiciliado. 
· Altas, bajas, consultas 
y modificaciones. 
2. Control de los movimientos 
de cada cliente, 
presentándose en 
pantalla todos ellos por 
el nombre del cliente, 
código de la película, 
fecha de la entrega y 
de devoluciones 
de la misma. 
3. J?ichero de películas: 
· Altas, bajas, consultas 
y modificaciones. 
· Listados. 
4. Realización de recibos, que 
· incluyen los siguientes 
conceptos: 
· Importe. 

 · Vencimiento. 
· Datos pago cliente. 
· Penalizaciones. 
El ordenador calcula 
las penalizaciones para 
los casos de socios de 
propiedad o de alquiler. 
En ambos casos, 
aparece el cargo en el 
recibo y un comentario 
sobre dicho cargo. 
5. Listados y consultas por 
pantalla e impresora: 


· Listados de socios. 
· Penalizaciones. 
· Diario de los 
movimientos de 
películas de propiedad y 
de alquiler. 
· Consulta sobre 
tenencia de películas. 
· Listado de películas. 
6. Realización de etiquetas: 
Esta opción nos 
permite agilizar diversos 
trámites, como por 
ejemplo el envío de 
circulares, empleando 
los datos que hemos 
almacenado en el 
programa. 


CONTROL DENTISTA 


de N ovus Software 
P.V.P.: 29,192 ptas, 


Este programa está dedicado 
a los profesionales de la 
estomatología y odontología, 
es decir, a los dentistas. 
El objetivo es reducir el 
tiempo que el médico tiene 
que dedicar a la gestión de 
ficheros, dándole una mayor 
fluidez y organización, para 
que pueda dedicar un tiempo 
mayor al ejercicio estricto de 
_u profesión. 
Lo mejor es que no se 
necesita tener ningún 
conocimiento de informática 
para manejar este programa. 
Su utilización es muy sencilla. 
Es más, el mismo programa 
va guiando e impidiendo que 
se cometan errores. 
Funciona mediante un 
sencillo sistema de fichas que 
el médico puede clasificar de 
acuerdo con los criterios que 
considere oportunos y siempre 
con la posibilidad de una 
rápida y sencilla modificación. 
De la ficha principal de cada 
paciente cuelgan las de nueva 
visita, las de prótesis, etc. De 
esta manera tan sencilla, se 
agilizan el tiempo y el espacio 
dedicados a los ficheros y su 
localización. 


Todos los datos se 
actualizan automáticamente, 
desde los económicos hasta la 
edad del paciente. 
U na de las características 
más importantes del 
programa, desde el punto de 
vista de un profesional, es que 
las fichas de prótesis se 
adaptan a las normas 
odontológicas y, además, se 
han realizado, gráficamente, 
de tal forma, que con una 
rápida ojeada permiten 
conocer la composición de la 
prótesis, en cuanto a número 
y disposición de las piezas. 
Un aspecto importante son 
los listados que emite, en los 
que aparece la ficha completa 
del paciente, con su saldo 
económico incluido. 


. . 
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.SE RSO 
VE ¡\ S 
¡Puede ganar un equipo de alta 
fidelidad con COInpact Disc! 
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Las posibilidades sonoras de los ordenadores Amstrad están fuera 
de toda duda, Se puede hacer música con ellos y buena. Por esta 
razón) AMSTRAD Semanal organiza este concurso) ofreciendo como 
premio a los ganadores un equipo musical de alta fidelidad de la 
marca lnvestrónica) modelo CD-300 hJ, con Compact Disc. 
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BASES 


1. - El concurso se divide en tres 
categorías diferentes. Cada concursante puede 
optar por una de ellas, por las dos o por las 
tres si lo desea. 
Primera categoría: consiste en la creación 
de un tema libre. Se puede enviar una 
melodía, canción o cualquier tipo de música. 
Segunda categoría: el concursante deberá 
enviar los siguientes sonidos: 
sonido de llamada telefónica 
ruido de explosión 
sonido de un disparo 
ruido de arranque de un coche o moto 
sonido que produce el despegue de una 
nave espacial 
Tercera cat
goría: esta categoría se reserva 
en exclusiva a los PCW por la clara 
inferioridad en que se encuentran respecto al 
resto de ordenadores de la gama Amstrad. 
Aquí se premiará la mejor melodía según lo 
expresado en la primera categoría o los 
mejores cinco sonidos que se especifican en la 
segunda. Por lo tanto, los concursantes pueden 
enviar melodías, sonidos o ambas cosas a la 
vez. 


2.- Las melodías y/o los sonidos, en las 
tres categorías deberán enviarse a la 'reda¿ción 
el, AMSTRAD Semanal en forma de 
programa, bien en Basic, en Lenguaje 
Máquina o en programa cargador a base de 
líneas Data. No' se admitirán ficheros binarios, 
o una mezcla de ambos lenguajes. El soporte 
será una cinta de cassette o un disco, en el 
formato requerido por el modelo de ordenador 
Amstrad para el que se haya escrito... 
S. - El disco o cassette deberá enviarse a la 
siguiente dirección: 
CONCURSO MUSICAL 
AMSTRAD SEMANAL 
APARTADO 226 
ALCOBENDAS 
MADRID 


4.- Este concurso está abierto a todos los 
usuarios de ordenadores de la gama Amstrad, 
sin excepción, cualquiera que sea el modelo. 
5. - El plazo de envío de las melodías y 
sonidos para el concurso comienza a partir del 
día 10 de febrero y finalizará el día 10 de 
mayo de 1987. Las cartas con matasellos 
posteriores a esta fecha no entrarán en 
concurso. 
6.- Cada concursante puede enviar, dentro 
del plazo, una sola carta conteniendo su 


creaClon. Si decide optar por ambos temas, la 
melodía libre y los cinco sonidos, deberá 
enviarlo todo junto en el mismo sobre, 
convenientemente separados para facilitar su 
identificación. 
7. - El jurado estará formado por don 
Francisco Pastor del Pueyo (director de Erbe 
software), don Carlos Toro Momoro 
(compositor) y don José Luis Arriaza Ovran 
(locutor del programa «Sábado chip» de la 
cadena COPE). 
8. - Cada uno de los ganadores de las tres 
categorías recibirán un equipo de alta fidelidad 
«Investrónica CD-300 ht». No podrá recaer 
más de un premio en la misma persona. Para 
ello el jurado comenzará calificando por la 
primera categoría, luego la segunda y después 
la tercera. El concursante que resulte ganador 
en la primera categoría será eliminado, una 
vez que el jurado pase a calificar la segunda, 
si es que también ha participado en ella, y así 
en los siguientes casos. 
Los premios serán enviados mediante 
agencia de transporte puerta a puerta 
(transporte por carretera para la península y 
marítimo para las islas). 
9.- Se regalarán tres equipos de alta 
fidelidad repartidos entre las tres categorías: 
a la mejor melodía 
- a los mejores cinco sonidos 
- a la mejor melodía () mejores cinco 
sonidos en PCW. 
10.- El jurado se reunirá y valorará las 
creaciones de los concursantes durante la 
primera quincena de mayo de 1987. De los 
resultados se informará cumplidameme en la 
revista. La decisión del jurado será 
protocolizada por un notario y cualquier lector 
podrá solicitar el acta notarial siempre que lo 
haga cientro de los tres meses posteriores d su 
fecha de emisión. 
11. - Los agraciados' recibirán 
comunicación personal por correro certificado 
de AMSTRAD Semanal. 
12. - Todos los programas enviados por los 
concursantes quedan en propiedad de la revista 
AMSTRAD Semanal, reservándose el derecho 
de publicación si lo considerara oportuno. 
13.- La participación en este concurso 
implica la aceptación total de todas las bases. 
Cualquier supuesto que se produzca, no 
especificado en estas bases, será resuelto por 
HOBBY PRESS, S.A. 
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Sopa de letras 
Por: Antonio Aguilera 


La informática es una asignatura que cada vez se va a 
revelar de mayor importancia para nuestro futuro y el de 
nuestra familia. Por eso, los programas que combinan lo 
entretenido con el aprendizaje merecen la pena. El 
programa Sopa de letras está encaminado en esta 
dirección, A la vez que constituye un reto a la retentiva y 
agilidad visual, las palabras que hay que descubrir 
forman una serie de términos constantemente utilizados en 
informática. Familiarizarse con ellos es un primer paso para 
llegar a conocer de esta pronto, imprescindible disciplina. 


E ste juego es la clásica sopa de letras 
en la que hay que buscar la palabra 
que aparece en la parte superior 
derecha de la pantalla. 
Al empezar el juego, se debe introducir el 
número de palabras a buscar en cada partida. 
Una vez que se ha escondido ese número de 
palabras en la sopa (una palabra en cada sopa), 
aparecen los porcentajes de aciertos y errores. 
Una vez encontrada la palabra escondida, se 


VARIABLES 


na 
nf 
nJp 


Número de aciertos. 
Número de fallos. 
Número de palabras por 
partida. 
Matriz con las palabras. 
Matriz de la sopa de letras. 
Palabra a buscar. 
Bandera de tiempo acabado. 
Coordenadas y dirección de 
la palabra a buscar. 
Coordenadas y dirección da- 
das por el jugad
r. 
Longitud de la palabra. 


p$O 
mp$O 
p$ 
bft 
x,y,cf 


c,f,dir 
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... 


debe introducir la columna y la tila en la que se 
encuentra la primera letra de la palabra (si la fila 
es menor que 10, hay que poner un cero 
delante). A continuación, mediante las teclas de 
cursor, la dirección en que está escondida la 
palabra, teniendo en cuenta que no estará en 
diagonal. Para ello se dispone de un tiempo 
de 20 segundos. Todas las palabras que pueden 
ser escondidas están relacionadas con la 
informática. 


ESTRUCTURA 


10-210 
250-700 
740-1030 
1070-1180 
1220-1360 
1400-1650 
1690-1730 
1770-1850 
1890-1910 
1950 
1990-2350 


Rutina principal. 
Inicialización. 
Inicialización. 
Esconde palabra. 
Pantalla. 
Respuesta del jugador 
Comprueba respuesta. 
Porcentajes. 
Cronómetro. 
Fin de tiempo. 
Su brutinas para 
esconder palabra, 


L 



f lO REM ************* **** ********* 
20 RE" i SOPA OE LETRAS * 
r 30 RE" U**iUUUUUUUUUi** 

o RE" * Antonio Fernando * 
50 RE" * Agullera Romera * 
W R£M * GRANAOA. :t 
70 RE" *t*************
********** 
80 GOSUe 250:' titulo 
90 GuSUB 740:' inicializacion 
100 na=O:nf=O:nop=O 
110 WHILE nop{njp 
120 nop=Mp+l 
130 60SUB 1070:' esconde palabra 
140 60SUB 1220:' pantalla 
150 6uSUB 1400:' respuesta 
160 GUSUe 1690:' cOMprueba respuest 
a 
170 W£Nfi 
180 GuSUB 1770:' porcentaJes 
190 np$="":WHILE np${)"S" AND np${) 
"N":np$=UPPERi(INKEYi):WEND 
200 MOO£ l:INK O,13:INK 1,0:INK 2,2 
:INK 3,24:BÚRDER 13 
210 If np$="S" TH£N 100 £lS£ CLEAR: 
END 
220 R£M ************ 
230 RE" * TIlUlO * 
240 
EM ************ 
250 MuDE 1 
260 IN
 v,13:INK l,O:IN
 2,13:!NK 3 
,24:t:ORDER 13 
270 PAPER O:P£N l:ClS:CLG O 
280 wINDOW 2,39,2,2A 
290 PAP£R O:CLS 
300 PEN 2 
310 LÚCAfE l,23:PRINf "súPA DE l£fR 
AS" 
320 UJCAfE 1.1 
330 fOR x=16 10 16*15 SlEP 2:fúR y= 
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"B ",. J:C; XJ Jl 
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:r 
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P 
Jt 
E 
S 
o 
Jt 
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16 Tú 32 Sf£P 2 
3AO If TES1(x,y)=2 THEN PLOT x+195, 
(y+150)i2,3:0RAWR 0.2:PLOTR 4,4.1:0 
RAWR 0,-2 
350 NEXT:NEXf 
360 LúCAiE l,23:PRINT SlRIN6$(14,32 
) 
370 INK 2,3 
380 WINDOW 1,40.1,25 
390 x=1:y=1:ancho=38:alto=24 
400 P£N 2:lúCAf£ x,y:PRINí CHR$(213 
)jS1RING$(ancho, 143)jCHR$(212) 
410 PEN 3:PAP£R 2:lúCAf£ x,y:PRiNf 
C
R$(223):lúCAT[ x+ancho+l,y:PRINl 
Clii(H 222J 
420 PAPER 3:PEN 2 
430 FúR n=1 fJ aito-1 
440 lUCAlt x,y+n:PRINl CHR$(207):lU 
CATE x+ancho+l,y+n:PRINf CHRi{207} 
450 Ni:.n 
460 P£N 3:LOCAfE x,y+alto:PRINT CHR 
$(214}jS1RIN6i(ancho,1A3)jCHRi(215) 


470 FiN 2:PAPER 3:l0CATt x,y+alto:P 
RINf CH
$(220):lÚCAI£ x+ancho+l,y+a 
lto:PRINl CKR$(221)j 
480 WINÚUw 2,39,2,24 
4
U f
ui xfib' ib,4UU-yilb{i4,i:ÚRRW 
ti (ancho+2)*16-2,0 
500 DRAWR 0,-16*(alto+1)+2:úRAWR -( 
ancho+2)*16+2,0 
510 DkAWR 0,16i(alto+l}-2:úRAWR lA, 
-14 
520 DkAwR ancho*16+2,0:úkAwH 0,-16* 
(alto-1)-2 
530 DRAWR -ancho*16-2,O:DRAWR 0,16* 


(alto-1)+2 


540 PLulR ancho*16+2,O:UkAWR 14,14 
550 
LUfR -14,-(16*alto+2):ORAwR 14 
,-14 



 I PPE:........A 
::
COL
A (A-O> A 
. :5 
o. 
87 FILA <01.-.15> 


;': 


'89 
.' 
.1 
.a 


t W'tero de palabras 1.0 
Palabra nunero 1. 2a 


Serie 


ORO 


560 PLúIR -(ancho+l)*16-2,14:DRAWR 
-14,-14 
570 úRIGI
 112,112,112,520,112,286: 
CUl2 
5BO FUR i=O Tú 416 S1EP 20:PLUl 416 
-i,ú:ORAW 0,i/¡.36:PLuf l,Ú:ÚRAW 41 
6,ii2.36:PlÚl 416-i,li6:úRAW 0.176- 
i/2.36:PLUI 416-1,i76:úRAW 416,i!2. 
36: NEXl 
590 PAPER O:PEN 3:LUCA1E l,20:PRINl 
SfRING$(38,154}:lÚCAf£ 1,22:PRINf 
SlfdNGi(38, 154) j 
600 P£N 1:L
CAfE 2,21:PRINT USIN6 " 
&"jCHR$(174)j"Numero de palabras po 
r partida? Bj 
610 nJP$="" 
620 a$=.":WHIL£ a${)CHR${13) ANO LE 
tHnjp$)(4 
630 a$=INK£Y$:lf a$=". fH£N £30 I 
640 If (ASC(a$»47 AND ASC(a$){58) 
TH£N PRINf a$;:njp$=njp$+ai 
650 Ir ASC(a$}=127 AND lEN(njp$} lH 
EN njp$=RIGHf${njp$,lEN(njp$)-1}:PR 
INl CHR$lB)jCHH$(16}j 
660 WENU 
670 nJP=VAL(nJP$) 
680 If nJP{l uR njp>12 TH£N LuCAfE 
l,21:PRINi STRIN6$(38,32)¡:PEN l:Lú 
CAT£ 
,20:PRINf SfHING$(38,154):lÚC 
AlE 1,22:PRINl S1RIN6$(3B,lS4}:fEN 
3:UJCAr£ 14.21:PRINf "t)HRE 1 Y 12" 
:
úR r=l iO lSOO:NtXi:LUCA1E l,21:P 
RINf SfRIN6$(38.32):GÚiú 590 
690 LúCAIE l,21:PRINl 3iRING$(3B,32 
}:P£N i:lúCAf£ i,20:PRINf SfRING${3 
B.154):LOCAiE 1,22:
RINT S1RING$(3B 
,154/:PEN 3:lúCAf£ lú,21:PRINf "NuM 
tRO DE PAlA
RAS:";MIú$(SlR$(njp),2) 
700 RE fURN 
710 RE" **i**i***********
** 
720 R£
 i INICIAlIZACIUN * 
730 RlM ******************** 
740 RANOU"IZE rIME 
750 01" p$(114) 
760 FuR i=l ro 114 
770 REAú pi( i ) 
180 N£H 
790 x(1)=8:y(1)=13:x(2)=B:y(2)=17:x 
(3)=6:y(3¡=15:x(4)=10:y(4)=15 
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800 DI" Ip$(15.12) 
810 SYMBúL Aff£R 245 
820 SV"BOL 246,255,254,252,248,240, 
224.192.128 
830 SY"BÚL 247,255,255,0,0,0,0,0,0 
840 SYMBúL 248.128.192,224,240,24B, 
252,254.255 
850 SYMBUL 249,0,0,0,0,0.0,255,255 
860 SY"BÚL 250,255,255,0,0,0,0,0,0 
810 SYMBuL 251.255.127,63,31,15,7,3 
, í 
I BBO SVMBúL 252.0,0,0,0,0,0,255,255 
B90 SY"BuL 253)1)3)7
15J31J63J127:2 
55 
900 SY
BUL 254,192,192,192,192,192, 
192,192,192 
910 SY
BÚl 255,3,3,3,3,3,3,3,3 
920 cu$=CHR$(10)+SfRING$(2,B) 
930 fl$(1)=CHR$(253)+CHH$(24B)+cu$+ 
CHR$(2S5)+(HH$(254) 
940 fl$(2)=CHRi(255i+CHfi$(254)+cu$+ 
CHR$(25i)+ChH$(246) 
950 fl$(3j=CHR
(2S3)+CH
$(249)+cu$+ 
CHR$(251)
CHR$(250) 
960 fl
(4)=ChH$(249)+CHR$(24B)+cu$+ 
CKR$(250)+C

$(246) 
970 HE-l ijRN 
9BO jArA OIMtNSiuN,MuNlfUR, T£CLA
0, 
4
SiRAD,PkuGRAMA,6KA
iCuS,Su
Iúu,Pt 
R¡FiRICu)!MPR
SuRAJuRu£NA9úH)INri
; 
ACE.,uISCl,SALIDA,CVRSUR,JUYSTICK,Cu 

fCfuR;CASSfff£JCINfAJCADf
HJP
UC£s 


ADilfi 
990 DAiA CULÚR,NU
E.Ru,Ll¡R.A,NU
tRIC 
J,;I
fA,Bu
G£,FúSFúRÚ,ACC£SJ,ARCHlv 
G,uAIUS,LtClvRA,SISIEMA,CHIP,SILICI 
u,0ISK£fT£,SIMULA9UR¡C£N'
ÚNICS,PAN 
lALLA,
AiR¡Z,ESCRI!URA,GRABAGluN,IN 
>jRMAfICA,M£MJRIA,BASIC,LOGÚ 
1000 DAiA PASCAl,
úR1H,ENSAMBLADúH, 

£NGUAJ£,CAlCVlu,G£SfluN,APLICACluN 
,SUfTwARE,HAROwARE,CARACiEK,&INARIU 
,O£CIMAL,H£XAO£CIMAL,PRÚGRAMAOuR,AN 
ALlS1A,8UCLt,CúNDIClúN,ERRGR,MEÑSAJ 
¿,JRGA
IGRAMA¡£NvuLv£Nr£ 
1010 DA¡A ÚHúINOGRAMA,PUER1A,AUDlú, 
VI0£u,CANAL,VENfANA,úP£RAOÚR,P£RSÚN 
Al,LINE.A,CúMANDú,fVNClúN,vID
UJUEGú 
,AV£NfURA,R£SúLUClúN 
1020 DA1A SUPún1E,EDlluR,iARJE1A,Al 
IM£NfAOUR,AMPLIAClúN,BVS,£XPANSiuN, 
CúMPAIIBLE,SUBRU1INA,APRENúIZAJE,AC 
uPLHJuR,VNIOAO,LÚGICA,t£N£RAuuR,OIG 
1IAL,ANALúGICÚ,CUúIGD,RUIINA,ACUMUL 
AOuH 


1030 DATA ALEAlufilú,SECUENCIAL,UPE
 
AfIVu,fRACCluN,fRICClúN,INO£XADúS,I 
NTEkCAMtlIu.USUARlu,CONEXIúN,TfiATAI'II 
£NfU,f£XfUS,R£SUlTADÚ,AlMACEN.CUNíR 
úl.BLOQUE 


,. .. . 


tINtA 


81 
82 D 
83 COLUMHA <A-o> 
84 
86 

.. FILA <01.-15> 11 
88 
J.; 
11- 
1.8 


. "'"e ¡>&labraS 1.0 
NUI"er o ,' 
'Palabra nUl"ero 5 


Z0 


1300 If oum{10 fHEN OUM$=" Q"+RIGHI 
$(Slfi$(num),l):P
INl nUM$; tLSE 
kI 
Nf num; 
1310 num=nuffi+1:NlXl:1A6ú
F 
1320 lúCAf£ 12,1B 
1330 INK 1,0 
1340 WINDuW #3,2B,39,22,24:PAPER #3 
,1 :ClS i1:3: WINúuW it2, 27 ,3B,23, 21: 
AP 
£R #2,3:CLS 
2:PEN #2,1:wINDúw 14,2 
5,40,4,6:PAPE.R #4,1:CLS #4:PEN #4,3 
:WiNÚUW IS,25,40,B,10:PAPEh '5,1:CL 
5 it5:f-'EN #5,3 
1350 PEN #l,1:fUR i=1 fO 4:lúCATE # 
l,x(i),y(i):PfiINl #1,fI$(i):NEXl 
1:360 REftlRN 
1310 fiEM *

*****¥*****
********:** 
* 
1380 filM * HESPu£SlA DEL JUGADUR 
:
 
1390 REM 
t¥**********í***;í***tttt 
:
 
1400 lúCAíl #6,3,2:
RINl #6,"Nulero 


 palaoras";njp 
1410 LúCATE #6,3,4:PkINi #6,"f-'alaDr 
a nUMeroli;nop 
1420 LiJCA1E #4,1,2:PRINl #4,"CULUMN 
A (A-ú) "; 
1430 LuCA1E it5,1,2:PRINl it5,"FILA ( 
01-15) "; 


I 


1040 R£M ********************* 
1050 filM * ESCONDE. PALA
RA * 
1060 REM ***
******
*****
**** 
1070 p$=p$(INi(RNÚ*114+i) 
lOBO fúR i=1 TU 15:FúR j=l fu 12 
1090 mp$(l,j)="" 
110(1 N£H:N£H 
1110 f=O:c=O:dir=O 
1120 I-=WHp$) 
1130 (f=INT(RNO*4+1) 
¡14
 úN (f GúSV8 2290,2190,209
,199 


o 


1150 fúR i=1 Tú lS:
úR J=1 lu 12 
1160 IF mp$(¡!j)=uu fH£N mp$(lJjj=C 

R$lIN1(HNO
26+65») 
1170 NEXf:NHf 
USO HE 1 OHN 
1190 
£M 

*
**
*
*
**
*



*I
**** 


:;:;
; 


1200 fiEM * PREPARA PANiALLA úE JUE6 
ti * 
1210 RlM ************************í* 
¡n 
1220 CLG O:MUDE l:INK 2,2 
1230 WINDÚw IO,1,40,l,25:PAP£R 10,0 
:CLS:PEN #O,l:WINDúW #1,25,40.1,25: 
PAP£R 11,2:CLS itl:PEN 11,3 
1240 WINOúW it6,1,24,20,25:PAPEH _6, 
2:P£N #6,3:ClS #6 
1250 LOCATE #1,fIX(9-LtN(p$)i2),2:
 
RINT 11.p$ 
1260 INK 1,13 
1270 fúR j=1 Tú 12:fúR i=i fú 15:TA 
G:
lúí i*20,399-j*20,1:
HrNl Ip$(l, 
j);:NfXf:TAGUfF:PRINT:N£Xr 
1280 var=O:FúR i=1 lO 15:TAG:
'l01 i 
*20,399,3:PRINf CHR$(6S+var);:var=v 
ar+1:NEXT:TA6úf
 
1290 nUM=l:FúR j=l Tu 12:fAG:PLúT 3 
20.399-J*20,3 


1440 PLúT O,O,l:DRA
R 63B,O:úkAWR O 
,39B:úRAWR -2S6.0:0RAWR O,-304:ÚRAW 
R -382,O:DfiAWfi O,-96:'PLOlR 382,96: 
ORAWR 256,0 
1450 bft=O 
1460 tb= rIME 
1470 GúSUfi 1890 
14BO £V£RY 50,3 GUSUB 1B90 
1490 AfTER 1000,2 6úSUB 1950 
1500 f=O:WHILE (f{1 úR f)15) ANO bf 
t=O 
1510 f$=UPP£R$(INK£Y$) 
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1520 f=ASC(f$+CHR$(0»-6A 
1530 W£
D 
1&40 
RINT #4,f$ 
1550 c=O:WHIL£ (c{i OR e)12) ANO bf 
t=O 
1560 e1$="":WHILl (el$<"O" úk el$)" 
1") ANu bft=0:e1$=UPP£R$(INKEY$):W£ 
ND 
15íO e2$="":W
ILl (c2${"0" úR e2$)" 
3") AND bft=O:e2$=UPP£
$(INK£Y$j:W£ 
NO 
1580 c=VAL(el$)*10+VAL(e2$) 
1590 WENO 
It,VO lt [ÚO lid c
=ill)
+kibHih51k 
$(c),l) ELSi c$=HIGHf$(S¡Q$(c),2) 
1610 If eJO THlN PRINT #5,c$; 
1620 e3$="u:WHIl£ (c3${CHR$(240) tlR 
e3$>CHR$(243» AND bfi=0:e3$=UPPlR 
$(lNK£W:W£NO 
1630 If e3$<>"U ANO bft=O THlN dir= 
A5C(c3$)-239:P£N #1,3:LOCAT£ il,x(d 
ir>,y(dlr):
RINT #l,fl$(dir) 
1640 erl=R£MAIN(3):cr2=REMAIN(2) 
1650 fillVRN 
1660 R£M **************
*********** 
H 
1670 RtM * CuMPRUlBA LA RESPUES1A 
:¡: 
1680 Rt
 *****
*
********;********t 
.u: 
1690 If f=x ANO e=y ANO dlr=cf lHEN 
FúR 1=400 fO 200 SfEP -l:$úUND 1,1 
,l:Nlxl:Pf¡IN
:PRINl IAB(8)CHR$(175) 
uCúRRECfu!u:p.a=p.a+l:6ufO 1720 
liOO IF bft=l THlN PfiIN1:
RINl TAB( 
Si"ESTABA EN ";CHR$(64+x);"-U;R!GHr 
$(SIR$(yi,LlN(Slfi$(y»-I);" ";CHf¡$( 
239+(f) ElSE FOR 1=200 fú 400:S0UND 
1,i,1:NEX1:PRINT:rRINl TA8(3)UlkRú 
R:£STA EN ";CHR${64+x);"-"RIGHT$(Sf 
k$(y),LtN(STk$(y»-l>;" ";CHfi$(239+ 
eO 
1710 of=p.f+l 
1720 fuR wx=x Tu nx Sf£P S6N(slx):F 
Ok wy=y 10 ny STtP SGN(sly):TAG:PLú 
r wx*20,399-wy*20,3:PRINT mp$(wx,wy 
);:
OR rr=1 10 200:NlXl:NlXI:NlXT:l 
AGÚff 
1730 RlIURN 
1740 REM **t**********
*** 
1750 RlM * PORCENTAJlS * 
1760 R£
 ***************** 
li70 FUR ret=l lU 2000:NlXi 
1780 MOD£ l:INK 0,13:BORO£R 13:INK 
1,0:INK 2,24:INK 3,22:PLúl O,O,1:0R 
AwR 638,O:DRAWR 0,398:0RAWR -638,0: 
ORAWR 0,-398 
1790 IF na=O TH£N LOCAT£ 5,7:PRINf 
uNO HA lNCúNIRADu NINGUNA 
ALABRA. 
ElS£ LúCAT£ 9,7:PRINT "HA £NCONfRAú 


ú";na¡"PALABkA";:If na>l THEN PRINI 


8{:1I 
.., 
1800 IF nf=O lHEN.LúCATE S,9:PRINl 
"NO HA fALLADO EN NINGUNA PALABRA u 
ElSl LOCATE 9,9:PRINT "HA fALLADO l 
N";nf;"PALABRA";:If nf)1 fH£N PRINT 
.S" 
1810 LOCAIE 7,13:
kINl uPOfiClNIAJE 
DE ACIERTOS:";ROUND(na*100/njp);:P
 
INI "';" 
1820 LuCATl 7,i5:PHINl uPURCENTAJE 
a£ ERROR£S :u;RúUNú(nft100/njp);:PR 
INi U';" 
1830 WINDúW #i,10,31,21,23:PAPlH #7 
,1:PEN il,2:ClS 
7:LUCAT£ #7,2,2:PR 
INi #i,CH

(17
);ilJUlGA 
IHA 
ARiID 
A?" 
1840 PLúl 9*16,32,3:0RAWR 22*16,O:D 
RAwR O,48:0RAWR -22*16,0:ORAWR 0,-4 
8 
18-S0 RE fURN 
1860 REM **
**
*******;** 
1870 R£M * CRUNú
£TRu * 
1880 filM **
*******¥***** 
1890 tt=íIM£:ti$=
IGHf$(Sf
$(INr{(t 
t-t
}1300).2}:¡¡ Wh(hi,i)=" 
frl£N ti$="O"+RIGHr$(ti$,l) 
1900 LúCAil #2,6,2:PRINl #2,ii$ 
1910 ti:£fURN 
1320' klM *
;

**f**
****f
*** 
1930 REM * FIN D£L TI£NPO * 
1940 REM *******t***********
 
1950 erl=R£MAIN(3):cr2=R£rAiN(2):br 
t=l:fÚfi 50=1 lú 26:BúfiOlR sd:SOUNO 
i,sd*10,10:FuR t=l fO 100:N£Xf:NfX¡ 
:BúkDlR 13:RllURN 
1960 ti:£M *t
********************t** 
*H*nH:U
tn* 
1970 REM * COLuCA PALAB
A Df IZQvlf 
FiDA A OlRlCHfi * 
1980 R£M ***
*********

**t**tíí*í* 
u*U::;:UUtUU 
1990 x=¡Nr(RND*15+1):y=INri
ND*12+1 
) 
20CO IF x+l)15 IHlN 1990 
2010 FúR xx=O fu 1-1 
2020 mp$(x+xx,y)=MID$(p$,xx+l,l) 
2030 NO ¡" 
2040 slx=1-1:nx=x+slx:ny=y:sly=1 
2050 R£fURÑ 
2060 RlM *;*
*;***;*;;**********
** 
nun**:nu:t:n 
2070 REM * COLOCA 
ALAaRA Ol VlRlCH 
A A IZQUIERDA * 
2080 filM ************************** 
:*****uuuuu 
2090 x=IN1(RND#15+1):y=IN1(RNO*12+1 
) 
2100 If x-I<1 IHEN 2090 
2110 FúR xx=l-l fO O sr£P -1 


Serie 


ORO 


2120 mp$( x-xx, y)=I1ID$( p$, 
:x+l, 1) 
2130 N£H 
2140 s!x=-1+1:nx=x+slx:ny=y:sly=1 
2150 REn}R
¡ 
2160 fitM *í;f*;*t***í*í
;f*í****;** 
nUHUU: 
21iO RlM * CúLuCA 
ALABkA úl ARkIBA 
A ABAJu * 
2180 ktM *l**
*f******í*f******t**l 
:t:u:nn.ut 
2190 x=IN1(RND
15+1):y=IN1(RND*12+1 


2200 Ir y+l>12 lHEN 2190 
2210 FúR yy=ú Tú 1-1 
2220 mp$(x,y+yy}=MID$(p',yy+l,l) 
2nONaf 
2240 sly=1-1:ny=y+sly:nx=x:slx=! 
2250 r,£i'URN 
2260 RlM ******;;;****l***;*f;***ll 
:n:nt:nn* 
22iO ktM * CULúCA 
ALA8RA Dl A8AJu 
A Ati:RIBA * 
2280 fit
 ****l*
l*ll*

í
l*íl*;
*
* 
HH*:rnn 
2290 x=INi(RNU*lS+1):y=IN:(RN
*12.: 


2300 Ir y-i{l lHtN 2290 
2310 
uR ry=l-l fu a S¡i
 -1 

320 mp$(x,y-yyi=MID$(p$,yy+!,!! 
2:3:30 h£X r 
2340 sly=-l+l:ny=y
sly:nx=x:s;x=l 
2:;SC¡ 
ti:J
:N 
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! Para que tus 
dedos no realieen 
d trabajo duro, 
AMSTRAD 
Semanal lo hace 
por ti, Todos los 
listados que 
induyan este 
logotipo se 
encuentran a tu 
disposición en un 
cassette mensual, 
solicítanoslu, 
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: 300 BAUDIOS 
I CnT V21 


. D . 
 
t 19a.... 


-¿Es el Amstrad 
pC/CPC/pcw (táchese lo que 
no proceda) de . 
(a rellenar por el propietario)? 
- El mismo, ¿qué quería? 
-Verá, soy el ordenador de 
un amigo de su jefe que me ha 
pedido que le mande el fichero 
de datos correspondiente a la 
última revisión del programa de 
inventarios. 
-¡Ah, sí! Le estábamos 
esperando. 
- Es que llevaba media hora 
comunicando la línea y hasta el 
momento no lo había 
conseguido. 


. . 


- 



 



 


mi curiosidad camarada 
Amstrad. ¿Qué ha utilizado 
para modular-demodular la 
llamada telefónica? 
-Un dispositivo modem por 
acoplamiento acústico de la 
marca Cat Novation, que ha 
encontrado mi jefe en Comercial 
Nuevos Ministerios, en la 
estación RENFE de la calle 
Raimundo Fernández Villaverde 
de Madrid, al precio de 35.000 
pesetas. Trasmite y recibe en 
nonna standar europea CCITT 
Y-21 (300 baudios) y se conecta 
al interface RS-232-G Cuenta 
con modo Llamada y Respuesta, 
seleccionable mediante 
interruptor externo e indicador 
de Comunicación establecida 
mediante luz roja. No sobrecarga 
la alimentación de mis circuitos, 
ya que dispone de fuente de 
alimentación independiente. 
-Se lo recomendaré a mi 
jefe. Pues nada más, camarada 
Amstrad, espero que en la 
próxima ocasión me pase aquel 
simulador de vuelo del que 
hablaron nuestro jefes. 
- Lo tendré en cuenta. Hasta 
la próxima. 
-Adiós. 


-Ya. Será el jefe que da 
prioridad a las conversaciones 
humanas. Bueno, pues manos a 
la obra, listo para recibir a 300 
baudios. 
- Listo para transmitir: 
100011101011011... 0100111101110. 
- Paquete recibido. Listo para 
recibir siguiente paquete 
(protocolo). 
- Enseguida: 
011101110101110000111... 1001101100 
1110011. Fin de transmisión 
fichero de datos. 
- Recepción concluida. 
Errores en la comunicación = O 
por 100. 
- Perfecto. N o será necesario 
repetir la transmisión. Perdone 


La estrella 
de la escritura 


En impresora s matriciales"la 
marca Star ha tenido siempre 
un gran prestigio. Para esta 
ocasión os presentamos el 
modelo Gemini lOX capaz de 
escribir a una buena velocidad 
de 120 caracteres por segundo. 
Dispone de un buffer de 
impresión de 816 caracteres, 
ampliables opcionalmente a 4 K 
o 8 K. Entre su amplio surtido 
de tipos de letra podemos 
destacar la normal (diez 
caracteres por pulgada), élite 
---(doce cpp), comprimida 
(diecisiete cop), expandida 
(cinco cpp), enfatizada, doble 
picada, itálica etc. 
juego de 96 caracteres ASCII, 
otros tantos en itálica, 64 
especiales y 32 de gráficos. Se 
sirve tanto con conector paralelo 
como serie y es totalmente 
compatible con los ordenadores 
CPC de Amstrad. Sobre la base 
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La encontraréis en Master 
Computer, Plaza de Cristo Rey, 
3, esquina a Cea Bermúdez 
28015 Madrid al precio de 
89.000 pesetas. 
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lOX también existe una versión 
con juego de caracteres para PC 
y otra con carro grande 
-15X- para escribir a 136 
caracteres normales por línea. 
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Trazando en 
color 


Recomendado para su 
utilización en el Amstrad PC 
1512, ya que dispone de 
conector paralelo Centronic de 8 
bit s (los de la serie CPC tienen 
Centronic de 7 bits) es este 


o te quedes 
olgado 


lit " acab<lron lo Jur-trn 
IJ1<lldi,'inu f 
¡rqu Dn t' 'HdfJI 
os tem!(j\J
 (Orh:
 dL 
lIZ No tamo 
.efiri,'ndo, por 
uput'sto, al" 'p 
Úente de 
!imental:Í6n de' , 
c\{uridad de 
00 walio' (jUl' 
)odéi, v. r en la 
otlJgralld :' qu ' 
., v{>udc por 
8.300 ptds en 
icro World Zurbano. 
adnd. 
La 'arga almac"n
da p" 
a utilizaciÓn dd ordenado 
ur,mte ,ti meno' quinn 


Variedad 


Aquí tenéis una buena muestra 
de la variedad de discos de 5 
1/4 pulgadas en doble cara y 
doble densidad que se ofrecen 
en Informática Papelería Plaza 
de Castilla, junto al Asador. 
De izquierda de derecha: el 
disco Esselte por 225 pesetas 
unidad, seguido del Precission 
(220 pesetas), Verbatin (225) y 
Nashua (225). Todos ellos 
también se sirven en cajas de 
diez unidades. 


plouer Sekonic SPL 410 con seis 
rotuladores de diferentes 
colores. Permite dibujar en un 
área efectiva de 385 x 280 mm 
(papel tamaño DIN A3 o 
menor) con una velocidad 
máxima de trazado de 420 
mm/seg. El cambio de color se 
puede realizar a través del 
software, desde el mismo 
ordenador, o bien pulsando una 
tecla en el plouer. Para 
aplicaciones más técnicas se 
incluye además un adaptador 
para utilizar Rotring de tinta 
china. 
Su precio en Peek & Poke, 
Génova, 11. 28004 Madrid 
(Te!. 41981 00) es de 156.800 
pesetas. 
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d Huido 
h ir el trabajo 
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Autodidacta 


P ara conocer el sistema 
operativo MS- DOS del 
Amstrad PC 1512 o bien optas 
por estudiarte a fondo el libro 
de instrucciones, o bien te 
decides por seguir uno de estos 
cursos en software que editan 
Logic Control y Turgeon y que 
podéis encontrar en Master 
Computer, Plaza de Cristo Rey. 
3, 28015 Madrid. Al precio de 
5,490 pesetas cada uno. 
Ambos cursos, explican 
Lecciones teóricas y tras cada 
lección realizan un test práctico 
para medir los conocimientos 
adquiridos por el futuro 
programador. 
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Por: Alberto Suñer 


Las imágenes son siempre algo 
atractivo) mucho más si logramos 
que nuestras propias creaciones se 
muevan sin tener que hacer mil 
operaciones comPlicadas o definir 
los gráficos en cada una de sus 
posiciones. 


E n el presente capítulo veremos una rutina 
que se encargará de realizar esta tarea. Podremos 
girar un gráfico hasta en cuatro posiciones 
distintas. De esta forma, si nosotros tenemos una 
imagen en la posición inicial, al ejecutar nuestra 
rutina la obtendremos girada en 90°. 
Una vez hecho esto, arrancamos de nuevo la 
rutina y obtendremos sucesivamente el mismo 
dibujo, pero esta vez con un giro de 180 y 270° 
con respecto al original. 
Como siempre que hablamos de gráficos, y 
dadas las diferentes estructuras de pantallas que 
posee el Amstrad, debemos hacer algunas 
aclaraciones. 
Así pues, nuestra rutina funcionará 
correctamente sólo con gráficos realizados 
expresamente para el modo 2 de pantalla, en el 
cual todos los bits que componen cada uno de los 
bytes contienen información de pixels encendidos 
o apagados, sin tener en cuenta el color. 
En los gráficos realizados para los demás 
modos de pantalla, el programa no funcionará, 
ya que los bytes que componen dicho tipo de 
gráficos contienen información sobre el color con 
el que deben ser imprimidos, lo cual dificulta 
enormemente la operación de giro. 
Debemos también apuntar que la rutina está 
preparada para funcionar con gráficos compuestos 
de ocho bytes, es decir, con gráficos semejantes a 
caracteres definidos por el usuario. 
Se ha hecho de esta forma para que esta rutina 
sea utilizable, tanto por aquellos que usan 
bloques gráficos como para aquellos que prefieren 
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los gráficos definidos por el usuario. 
De cualquier forma, esta rutina puede ser 
modificada de manera que sea utilizable para 
bloques de cualquier dimensión, realizando los 
cambios oportunos en el bucle principal del 
programa. 


Método de trabajo 


Para conseguir el giro de los gfaficos en 
cualquier dirección debemos tomar el bit 7 del 
primer byte y colocado en el bit 7 del octavo 
(último) byte. El bit 6 del byte número uno debe 
colocarse en el último bit del byte séptimo, y así 
hasta llegar al bit uno del primer byte, que 
deberá colocarse en el bit 7 del mismo byte 
Seguidamente, empezaremos a colocar 
ordenadamente los bits pertenecientes al segundo 
III\I/(I/) /; 



byte de nuestro gráfico. Pondremos el bit 7 de 
dicho byte en el sexto bit del último byte. El bit 
6 del segundo byte, en el bit 6 del byte 7, y así 
sucesivamente, hasta colocar el bit O del segundo 
byte en el bit 6 del primero. 
Después de este trabalenguas, deberemos 
ejecutar la operación con los ocho bytes que 
componen nuestro gráfico, colocando cada uno de 
los bits en l
s posiciones correspondientes. 
Su realización sería como se representa a 
continuación: 
Gráfico inicial 
1 2 345 6 7 8 


Gráfico final 


57 


57 58 59 60 61 62 63 64 


64 ............. 8 


En el gráfico anterior los números del 1 al 64 
representan los 64 bits que forman los ocho bytes 
que componen nuestro gráfico. De esta forma, si, 
por ejemplo, tomamos el gráfico correspondiente 
a la letra «Al>, éste quedaría de la siguiente 
forma, una vez producido el giro: 


00011000 
00100100 
01000010 
01000010 
01111110 
01000010 
01000010 
00000000 
Gráfico inicial 


00000000 
01111100 
00010010 
00010001 
00010001 
00010010 
11111100 
00000000 
Gráfico girado 


Funcionamiento de la rutina 


Las dos variables principales que utiliza el 
programa deben apuntar a dos buffers distintos: 
uno de ellos debe contener el gráfico inicial y el 
otro debe reservar un espacio para colocar el 
gráfico girado. 
BUFLET ......... Dirección del gráfico. 
BUFFER ..,...... Espacio reservado para el 
gráfico final. 
Así pues, debemos cargar el registro doble DE 
con la dirección donde se encuentra nuestro 
gráfico (BUFLET) y el registro HL con la 
dirección del espacio reservado para colocar el 
gráfico una vez girado. 
LD DE,BUFLET 
LD HL,BUFFER 
Seguidamente, entramos en un bucle en el cual 
se irán tomando los ocho bytes que componen la 
imagen, para entrar más tarde en otro, donde se 
moverán los ocho bits de cada uno de dichos 
bytes. 
En este último es donde se realiza realmente el 
trabajo de modificación de nuestro gráfico. 
Antes de entrar en el mismo, deberemos cargar 
en el acumulador el contenido del byte 
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correspondiente al gráfico, al cual se apunta a 
través del registro doble DE. 
LD B,8 
LD A,(DE) 
Seguidamente, rotamos el acumulador hacia la 
den;!:ha, . consiguiendo de esta forma colocar el bit 
O en el Carry, para más tarde traspasarlo a la 
dirección de memoria apuntada por HL (indica 
el espacio reservado para el gráfico final), 
mediante una rotación a la izquierda de dicho 
registro doble. 


1 


NUD3: RRA 
RL (HL) 
INC HL 
DJNZ NUD3 
Por último, incrementamos el registro DE y se 
vuelve a ejecutar el bucle, tomando el siguiente 
byte correspondiente al gráfico inicial. La rutina, 
tal como está planteada, lo gira 90° hacia la 
derecha, con lo cual ejecutándola sucesivamente 
conseguiremos otra vez el inicial. 
Con la misma estructura de nuestro programa, 
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se podrÍa conseguir efectuar este giro, pero hacia 
la derecha, consiguiendo girar el gráfico inicial 
también 90°, pero esta vez en sentido contrario a 
las agujas del reloj. 
Para aquellos que deseen confeccionar una 
rutina similar, pero para girar bloques de 
mayores dimensiones, se debe tener en cuenta 
que, en primer lugar, hay que transformar todos 
los bytes que componen la primera fila 
horizontal; una vez hecho esto se deberá pasar a 
la siguiente línea, hasta llegar a la última. 


Gráfico espejo 


A continuación vamos a comentar otro tipo de 
giro que nos puede resultar interesante a la hora 
de trabajar con nuestros dibujos. 
Se trata de girar un gráfico de forma 
que se obtenga su imagen reflejada en 
un espejo. Para un byte cualquiera, 
quedaría de la siguiente manera: 
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Código 
MÁQUINA 


OXXOOOOX XOOOOXXO 
Gráfico inicial Gráfico espejo 
El siguiente programa consigue este mismo 
efecto para un byte: 
LD A,(HL) 
CPL 
LD (HL),A 
Suponiendo que el registro doble HL apuntara 
a la dirección del gráfico, cargaríamos el 
contenido de dicha dirección en el acumulador, 
efectuaríamos su complemento y lo cargaríamos 
en dicha dirección de memoria de nuevo, pero 
esta vez ya modificado. Así pues, si deseáramos 
transformar un gráfico compuesto por ocho 
bytes, deberíamos hacer: 


...,... 
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LD HL,GRÁFICO 
LD B,8 
BUC: LD A,(HL) 
CPL 
LD (HL),A 
INC HL 
DJNZ BUC 
RET 


De la misma forma podríamos conseguir la 
imagen especular de bloques gráficos de mayores 
dimensiones. 


PROGRAMA CARGADOR 
10 FOR N=&AOOO TO &A029 
20 REAO A:SU"A=SUHA+A 
30 POKE N,A 
40 NEXT 
50 Ir SUMA{>&A36 THEH PRINT HERROR EN DATAS H 
60 DATA 17,33,160,33,25,160,6 
70 DATA 8,197,229,6,8,26,31 
80 DATA 203,22,35,16,25Q,225,19 
90 DATA 193,16,240,201,0,0,0 
100 DATA 0,0,0,0,0,255,0 
110 DATA 0,0,0,0,0,0,0 


..... 


PROGRAMA 
ENSAMBLADOR 
10 OR6 IAOOO 
20 LO OE,BUFLET 
30 LD HL,8UFFER 
40 LO 8,B 
50 NúD4: PUSH BC 
bO PUSH HL 
70 LO B,8 
30 LO A, (D£) 
90 NU03: RRA 
100 RL (!1u 
110 IHC HL 
120 OJNZ NU03 
130 PO? HL 
140 IHC DE 
150 POP BC 
160 DJNZ NU04 
170 RET 
lBO BUFFER: DEFS B 
190 BUFLET: DEFB 255,0,0.0,0,0,0,0 
200 :tL+ 
210 DEFS o 
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La información 
y su 
representación 


Dentro de la serie lriformática 
en el aula de la Editorial 
Alhambra, nos aparece este 
libro que encaja perfectamente 
en el marco de la enseñanza de 
uno de los aspectos teóricos más 
importantes del ordenador, en 
el cual descansan todas sus 
realizaciones prácticas: la teoría 
de la información. En efecto, 
sin esto, probablemente no 
habría ordenadores, aunque tal 
disciplina se haya enriquecido 
considerablemente, gracias a las 
aportaciones de los prácticos. En 
palabras del propio autor: «El 
objetivo central de este libro es 
la teoría de la información. su 
representación, soporte, 
estructura y codificación, en el 
marco de los sistemas de 
procesamiento de la 
información. que conocemos 
con el nombre genérico de 
ordenadores». Bien, creemos 
que queda clara, tanto la 
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función como el tono del libro. 
Es un libro que va dirigido a 
técnicos o a educadores, y su 
lenguaje no es especialmente 
divulgativo. Hay que reconocer, 
sin embargo, que la exposición 
rigurosa y de alto nivel de un 
tema de este calibre está reñida 
con todo tipo de licencias 
artísticas. Creemos que la obra 
es de gran valor para el 
maestro, estudiante o 
especialista del tema, pero tal 
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vez. para los simplemente 
curiosos, el autor escale cimas 
demasiado elevadas. 
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Programación 
en Pasea!. 
Turbo Pasea] 


Si en el mundo de la 
informática hay un estándar, se 
llama £BM. 
Análogamente, si existe un 
consenso en los lenguajes de 
programación para ordenadores 
de este tipo, se llama Turbo 
Pasea\. Con más de 400.000 
copias vendidas en 1985, e] 
Turbo se ha convertido en un 
producto con el que hay que 
contar, y a esa realidad 
responde este libro, Está todo lo 
qUt-' hay que saber acerca del 
Turbo Pasea!. El autor ha 
tenido el buen sentido de 
escalonar ]a profudidad de sus 
explicaciones, de forma que, 
tanto el recién llegado a] Turbo, 
como el profesional de] 
compi]ador puedan extraer un 
provecho definitivo de sus 
páginas. Hasta tal punto se ha 
tenido esto presente en la 
redacción del libro, que los 
primeros capítulos podrían 
llamarse con toda justicia una 
introducción a las peculiaridades 
del lenguaje Pascal, así, en 
abstracto. Por otra parte, todos 
los programadores saben que 


una de las estructuras de datos 
más comunes y útiles para una 
aplicación es la gestión de listas 
encadenadas y la asignación 
dinámica de memoria. 


FIOgI¡l aClon en 
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El autor ha cuidado 
especialmente el tema, haciendo 
hincapié en ]a forma más 
eficiente de gestionadas desde el 
particular punto de vista del 
Turbo Pasea\. Creemos estar 
ante un buen libro qut' va a ser 
útil a todo el mundo. 


Ficha técnica 
Título: Programación en 
Pascal. 
Turbo Pascal 
Autor: Rodnl1;Y Zaks 
Editorial: A naya Multimedia 
Páginas: 478 
Precio: 3.180 


NECESITAMOS personas 
que conozcan profundamente 
lenguaje ensamblador del Z8G y 
dominen los ordenadores Amstrad 
CPC desde el punto de vista del 
Lenguaje Máquina. 
Si usted es uno de ellos póngase en 
contacto con nosotros rápidamente 
en la dirección que se indica a 
continuación. poniendo en lugar 
muy visible del sobre. 
Referencia 
Código Máquina 
AMSTRAD Semanal 
Nuestra dirección es: 
AMSTRAD Semanal 
Carretera de Irún, km 12,400. 
Fuencarral. 28049 Madrid. 
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EN CASA 


Deseo suscribirme a la revista AMSTRAD SEMANAL por un año 
(50 números), al precio de 7.950 pts. Esta suscripción me da derecho 
a recibir, totalmente gratis, los dos últimos éxitos de Dinamic ARMY 
MOVES y GAME OVER (oferta válida sólo para España). 
Nombre Fecha de Nacimiento 
Apellidos 
Domicilio 
Localidad Provincia 
C. Postal Teléfono 
(Para agilizar tu envío. es importante que indiques el código postal) 
Formas de pago 
O Talón bancario adjunto a nombre de Hobby Press, S.A. 
S O Giro Posta! a nombre de Hobby Press, S.A., n? 
O Contra reembolso (supone 125 pts. más de gastos de envío y es 
válido sólo para España). 
j O Tarjeta de crédito n? 0000 0000 0000 0000 
Visa O Master Card O American Express O 
Fecha de caducidad de la tarjeta 
Nombre del titular (si es distinto) 
(Si pago con la tarjeta de crédito, recibiré un número más de regalo). 
Fecha y firma 


V
 


(Si lo deseas puedes suscnbirte por teléfono (91) 734 65 00) 


SOLICITA NUMEROS ATRASADOS, CINTAS SERIE ORO Y TAPAS 


D Sí, deseo recibir en mi domicilio los cintos que o 
continuoción indico, 01 precio de 756 ptos. codo uno. Codo cinto llevo 
grobodos los progromos pubhcodos por AMSTRAO SEMANAL duronte 
cuotro números consecutivos (1 01 4, 5 01 8, 9 01 12, ete.) 
Los cintos que deseo son: 
Números 01 
Números 01 


Números 
Números 


01 
01 


o Deseo recibir en mi domicilio los siguientes números atrasados de 
AMSlRAD SEMANAL, a! precio de 190 pts. cada uno. 


(Se encuentra agotado el n
 4) 
O Deseo recibir en mi domicilio las tapas para conservar AMSTRAD 
SEMANAL, al precio de 850 pts. (No necesita encuadernación). 
Nombre Fecha de Nacimiento 
Apellidos 
Domicilio 
Localidad Provincia 
C. Postal Teléfono 
: 
iII (Para agilizar tu envío. es importante que indiques el código postal) 
Formas de pago 
O Talón bancario adjunto a nombre de Hobby Press, S.A. 
O Giro Postal a nombre de Hobby Press, S.A., n? 
O Contra reembolso (supone 125 pts. más de gastos de envío y es 
válido sólo para España). (Excepto cintas.) 
O Tarjeta de crédito n? 0000 0000 0000 0000 
(Sólo para pedidos superiores a 1.500 pts.) 
Visa O Master Card O American Express O 
Fecha de caducidad de la tarjeta 
Nombre del titular (si es distinto) 
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Fecha y fIrma 


No se admiten solicitudes de cintas (antro reembolso 
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Suscríbete hoy mismo a 
AMSTRAD y recibirás a 
vuelta de correo los dos 
mayor éxitos de 
Dinamic 
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Benefidate de las ventaias 
de la tarieta de (rédito. 
Un número más, .,gratis 
en tu suscripción y la positiilida
 
de realizar el pago aplazado. 


ARMY MOYES 
(omo miembro del (uerpo 
de Operaciones Especioles, 
Oendhol ho sido odiestrado 
en vorios sistemos de 
combote distintos, osí como 
en el monejo de todos los 
ormos, explosivos y 
técnicos de guerra en lo 
selva. Ahora, tros lorgos 
oños de entrenomiento, le 
ho Ilegodo el momento de 
demostrar sus hobilidodes 
y otrovesar, por tierra, 
mor y oire, los líneas 
enemigos. ¿Lo conseguirá? 


GAME OYER 
Los problemos de libertod 
existen hosto en los mós 
lejonos goloxios. Si no, 
que se lo digon o los 
hobitontes del ploneto 
Porshoco, quienes estón 
sufriendo en sus comes 
viscosos lo tiranio de lo 
princesa Gremio. 
Afortunodomente, Arkos, el 
mós hábil de todos los 
mego-terminotors, ho 
decidido ocobor con este 
juego; afortunodomente 
pora nosolros, comienzo 
Gome Overo 
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Suscríbete hoy mismo a 
AMSTRAD y recibirás a 
vuelta de correo los dos 
mayores éxitos de 
Dinomic 
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Benefidate de las ventaias 
de la tarieta de (rédito. 
Un número más, jJrotis 
en tu suscripción y la positiilida
 
de realizar el pago aplazado. 


ARMY MOYES 
(omo niembro del (uerpo 
de Operociones Especiales, 
Dendhol ho sido odiestrodo 
en varios sistemas de 
(ombote dislinlos. así (omo 
en el monejo de todos los 
onnos, ex
osivos y 
témi(os de guerra en lo 
selva. Ahoro, lros lorgos 
oños de enlrenomiento, le 
ho llegado el momento de 
demoslror sus hobilidodes 
y olrovesor, por lierro, 
mor y oire, los Iin80s 
enemigos. ¿Lo (onseguiró1 


GAME OYER 
Los problemas de libertod 
existen hoslo en los más 
lejanos goloxios. Si no, 
que se lo digan o los 
habitantes del plonelo 
Porsho(o, quienes están 
sufriendo en sus (ames 
viS(osos lo lironío de lo 
prin(eso Gremio. 
Afortunadamente, Arkos, el 
más hábil de todos los 
mego-terminotors. ha 
deddido IKllbor (on esIe 
juego; ofortlllodClllellIe 
poro nosotros, (omienzo 
Gome Overo 
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